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DEFINITION 
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a 

ALWRAT 

The  ratio  of  the  length 
of  the  target  to  the 
width  of  the  target. 

none 

ai  ,a2 

A1,A2 

An  intermediate  factor 
used  in  computing  the 
single  shot  probability 
of  damage. 

none 

bi,b2 

B1,B2 

An  intermediate  factor 
used  in  computing  the 
single  shot  probability 
of  damage. 

none 

CEP 

ACEP(5,2) 

The  circular  error  prob¬ 
able  in  the  normal  plane. 

feet 

or 

mils 

D(ik) 

DIS 

The  distance  from  the 
i^h  (detonating  mine  or 
exploding  munition)  to 
the  k^h  mine. 

feet 

Df 

DFTFAE 

The  distance  in  front  of 
the  target  where  the 
fuel  air  explosive 
sweeping  device  deto¬ 
nates  . 

feet 

DmpI ( i ) 

Mean  point  of  impact  in 
deflection. 

feet 

Dmt 

DISTPD 

The  distance  between  the 
mine  and  the  target. 

feet 

Do 

DO 

The  distance  in  deflec¬ 
tion  from  a  target  to 
an  indirect  fire  round 
i.npact  point. 

feet 

DEP 

DEP (10) 

The  deflection  error 
probable  in  the  ground 
plane. 

feet 
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DEFINITION 


UNITS 


DSSP 


DSSP 


The  single  shot  proba¬ 
bility  of  hit  in  deflec¬ 
tion. 


EMD 


The  effective  miss  dis-  feet 
tance . 


H'p 

I 


Let 

Lp 


Lsh 

Lrp 


TARHT ( 5 ) 

The  height  of  the  in¬ 
truder  target. 

feet 

ANGIMP (10) 

The  weapon  impact  angle. 

degrees 

ETL 

The  effective  target 
length . 

feet 

The  pattern  length  of 
the  indirect  fire 
weapon . 

feet 

SHADOL 

The  target  shadow 
length . 

feet 

TARL(5) 

The  intruder  target 
length . 

feet 

MAEb 


MAEf 


Ns  NSUB(5) 

Nt 

P  PRBITY 

Pdf  pdlcf 


Mean  area  of  effective¬ 
ness  for  blast. 

Mean  area  of  effective¬ 
ness  for  fragmentation. 

Number  of  submunitions. 

The  number  of  complete 
fuze  cycles. 

An  interpolated  value 
determined  by  Subroutine 
TAB I NT. 


square 

feet 

square 

feet 

none 

none 


none 


The  probability  of  mine 
detonation  within  the 
FAE  pattern. 


none 
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UNITS 

Pdud 

DUDPRB(7) 

The  probability  that  the 
mine  type  is  a  dud. 

none 

Phd 

The  probability  of  dam¬ 
age  given  a  hit. 

none 

Pq»Pq+l 

PROBIL(840) 

Probability  values  from 
tables . 

none 

R 

AREL(5,2) 

The  reliability  of  the 
direct  fire  round. 

none 

Rp 

RADFAE 

The  radius  of  the  FAE 
effects . 

feet 

Rmpi ( i  ) 

The  mean  point  of  im¬ 
pact  in  range. 

feet 

Rn 

RSTART 

A  random  number  from  a 
normal  distribution. 

none 

Rn  1 »  Pn  2  » 

Rn  3  /  Rn  4 

RSTART 

Random  numbers  from  a 
normal  distribution. 

none 

Ro 

RO 

The  distance  in  range 
from  a  target  to  an  in¬ 
direct  fire  round  impact 
point . 

feet 

R’ 

PATRAD(5) 

The  radius  of  the  ICM 
pattern . 

feet 

Rq  »  Rq+  J. 

RANGPR(840) 

Range  values  from 
tables . 

none 

Rs 

RELSUB(5) 

The  reliability  of  the 
submunition. 

none 

R'P 


TARRAD(5) 


The  radius  of  the  in¬ 
truder  target. 


feet 
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REP 

AREP(20) 

The  range  error  probable 
in  the  ground  plane. 

feet 

RSSP 

RSSP 

The  range  single  shot 
probability  of  hit. 

none 

SSPd 

SSPD 

The  single  shot  proba¬ 
bility  of  damage. 

none 

Th 

HORIZ 

The  average  horizontal 
dimansion  for  the  target. 

feet 

toff 

SECOFF(7) 

The  duration  of  the  in¬ 
active  portion  of  the 
fuze  timing  cycle. 

seconds 

ton 

SECON(7) 

The  duration  of  the  act¬ 
ive  portion  of  the  fuze 
timing  cycle. 

seconds 

tr 

The  simulation  time 
when  a  given  event 
occurs . 

seconds 

IT 

The  random  starting 
point  for  the  fuze 
timing  cycle. 

seconds 

Tt 

A  time  period  relating 
to  the  fu'.:e  timing 
cycle . 

seconds 

Tv 

VERT 

The  vertical  dimension 
for  the  target. 

feet 

t’RN 

RN 

A  random  number  from  a 
uniform  distribution. 

none 

V 

V 

An  intermediate  variable 
used  in  obtaining  a 
normal  random  number. 

none 
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ABBREVIATION 

MODEL 

DEFINITION 

UNITS 

VAn 

The  vulnerable  area  of 
the  target  in  the  normal 
plane . 

square 

feet 

Wet 

ETW 

The  effective  target 
width • 

feet 

Wp 

The  width  of  the  im¬ 
proved  conventional 
munition  pattern. 

feet 

( n ) 

AIMPTX(50) 

The  X  coordinate  of  the 
n^*^  sortie  aimpoint  in 
the  map  coordinate  sys¬ 
tem. 

feet 

(i) 

The  X  coordinate  of  the 
ith  direct  fire  area 
entrance  or  exit  bound¬ 
ary  . 

feet 

( k ) 

XODEF(20) 

The  X  coordinate  of  the 
)cth  defender  in  the 
travel  path  coordinate 
system . 

feet 

(  i ) 

The  X  coordinate  of  the 
ith  mine  in  the  map  co¬ 
ordinate  system. 

feet 

(  i  ) 

The  X  coordinate  of  the 
ith  mine  with  respect  to 
the  nominal  sortie  aim- 
point  . 

feet 

^MR (i) 

OBX 

The  X  coordinate  of  the 
ith  mine  in  the  travel 
path  coordinate  system. 

feet 

^RDMPI { j ) 

XDMP (10,10) 

The  X  coordinate  of  the 
jth  desired  mean,  point 
of  impact  for  an  indi¬ 
rect  fire  round. 

feet 

.1^. 
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EQUIVALENT 

SYMBOL  OR  IN  SIMULATION 

ABBREVIATION  MODEL  _ DEFINITION _  UNITS 

^RDPi(j)  DMPIIX ( 10 , 10)  The  X  coordinate  of  the  feet 

jth  desired  point  of  im¬ 
pact  with  respect  to  the 
origin  of  the  volley 
pattern. 

Xf{i(j)  ROTDMPX  ( 10 , 10 )  The  X  coordinate  of  the  feet 

jth  desired  point  of  im¬ 
pact  of  the  indirect 
fire  round  in  the  travel 
path  coordinate  system. 

Xri  XROAD(ll)  The  X  coordinate  of  the  feet 

travel  path  segment 
starting  point  in  the 
map  coordinate  system. 

Xfr(j)  TGTXOL(IOO)  The  X  coordinate  of  the  feet 

jth  target  in  the  travel 
path  coordinate  system. 

Xto  XFIX  The  target  offset  dis-  feet 

tance  while  diverting 
around  a  damaged  target. 

^VAP(i)  The  X  coordinate  of  the  feet 

ith  volley  aimpoint  ori¬ 
gin  in  the  travel  path 
coordinate  system. 

XOvAP(i)  XOVP(IO)  The  X  coordinate  of  the  feet 

ith  volley  aimpoint  ori¬ 
gin  in  the  map  coordi¬ 
nate  system. 

Yft(n)  AIMPTY(50)  The  Y  coordinate  of  the  feet 

nth  sortie  aimpoint  in 
the  map  coordinate  sys¬ 
tem. 
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SYMBOL  OR 
ABBREVIATION 

EQUIVALENT 

IN  SIMULATION 
MODEL 

DEFINITION 

UNITS 

(i) 

The  Y  coordinate  of  the 
entrance  or  exit  di¬ 
rect  fire  area  boundary. 

feet 

YD{k) 

YODEF(20) 

The  Y  coordinate  of  the 
kth  defender  in  the 
travel  path  coordinate 
system. 

feet 

^DIV 

YDIV(IOO) 

The  Y  coordinate  of  the 
damaged  target  which 
must  be  diverted  around. 

feet 

'^DR(i) 

The  Y  coordinate  of  the 
ith  direct  fire  entrance 
or  exit  boundary. 

feet 

^Md) 

The  Y  coordinate  of  the 
ith  mine  in  the  map  co¬ 
ordinate  system. 

feet 

YM(i) 

The  Y  coordinate  of  the 
ith  mine  with  respect  to 
the  nominal  sortie  aim- 
point. 

feet 

'^MR  (  i) 

OBY 

The  Y  coordinate  of  the 
ith  mine  in  the  travel 
path  coordinate  system. 

feet 

^PC ( i ) 

The  center  of  the  pattern 
for  the  ith  PAE  detona¬ 
tion  position. 

feet 

The  closest  point  of 
approach  to  the  target 
of  the  effects  of  the 
ith  fae  detonation. 

feet 

'*^PO(i) 

The  furthest  point  from 
the  target  of  the  i.th 

FAE  detonation  effects. 

feet 
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YRDMPi(j)  YDMP(10,10)  The  Y  coordinate  of  the  feet 

jth  desired  mean  point 
of  impact  for  an  indi¬ 
rect  fire  round. 

^RDFi(j)  DMPIIY ( 10 , 10 )  The  Y  coordinate  of  the  feet 

jth  desired  point  of  im¬ 
pact  with  respect  to  the 
origin  of  the  volley 
pattern . 

'''^Rl(j)  ROTDMPY  ( 10 , 10 )  The  Y  coordinate  of  the  feet 

jth  desired  point  of  im¬ 
pact  of  the  indirect 
fire  round  in  the  travel 
path  coordinate  system. 

YrI  YROAD(ll)  The  Y  coordinate  of  the  feet 

travel  path  segment 
starting  point  in  the 
map  coordinate  system. 

Y-j.  (j)  TGTYNW(IOO)  The  Y  coordinate  of  the  feet 

jth  target  in  the 
travel  path  coordinate 
system. 

^VAP(i)  ^  coordinate  of  the  feet 

i^h  volley  aimpoint  ori¬ 
gin  in  the  travel  path 
coordinate  system. 

^OvAP(i)  YOVP(IO)  The  Y  coordinate  of  the  feet 

i^h  volley  aimpoint  ori¬ 
gin  in  the  map  coordi¬ 
nate  system. 

AX(ij)  DISTPD  The  distance  between  the  feet 

mine  and  the  target. 
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SYMBOL  OR 
ABBREVIATION 

EQUIVALENT 

IN  SIMULATION 
MODEL 

DEFINITION 

UNITS 

AY(ij) 

DIRDIS(IOO) 

Range  distance  that  must 
be  traveled  by  the  jth 
target  to  reach  the 
point  of  closest 
approach  to  the  i^^  mine. 

feet 

SIGAD(50) 

The  aiming  error  stand¬ 
ard  deviation  in  deflec¬ 
tion  . 

feet 

•^AR 

SIGAR(50) 

The  aiming  error  stand¬ 
ard  deviation  in  range. 

feet 

'BD 


SIGBD(50) 


obr 


SIGBR(50) 


THETA 


®  I'  (  j  ) 


AYYVP (10) 


'FR 


DIRATK(IO) 


The  ballistic  error 
standard  deviation  in 
deflection. 


feet 


The  ballistic  error 
standard  deviation  in 
range. 


feet 


The  angle  defining  the 
direction  of  travel  of 
the  delivery  aircraft 
(measured  clockwise 
from  the  positive  Y 
axis)  . 


degrees 


The  angle  defining  the 
direction  of  attack  for 
the  indirect  fire  volley 
airapoint,  measured  clock¬ 
wise  from  the  positive  Y 
axis  in  the  map  coordi¬ 
nate  system. 


degrees 


The  angle  defining  the 
direction  of  attack  for 
the  indirect  fire  volley 
aimpoint  in  the  travel 
path  coordinate  system. 


degrees 


XV 
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EQUIVALENT 
IN  SIMULATION 
MODEL 


SYMBOL  OR 
ABBREVIATION 


DEFINITION 


UNITS 


The  angle  between  the 
directed  travel  path 
segment  and  the  posi¬ 
tive  X  axis  in  the  map 
coordinate  system. 


THETR 


XVI 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SIMULATION  MODEL 


SYMBOL  OR 
ABBREVIATION 

ACER (5, 2) 

ACEPl 

ADEP (20) 

ADEP1,ADEP2 

AEI  (5, 5,4) 

AEV 

AI (20) 

AIMPTX (50) 

/ 

/■ 


EQUIVALENT 
IN  MATH 
MODEL 

DEFINITION 

UNITS 

CEP 

An  array  containing  the 
circular  error  probable 
in  the  normal  plane  for 
the  defender  or  intruder 
targets  by  type. 

feet 

or 

mils 

The  circular  error  proba¬ 
ble  in  the  normal  plane 
for  direct  fire  rounds. 

feet 

or 

mils 

An  array  containing  the 
deflection  error  probable 
for  the  direct  fire 
round . 

feet 

The  deflection  error 
probable  for  direct  fire 
rounds. 

feet 

An  array  containing  flags 
indicating  either  a  de¬ 
fender  firing  at  an  in¬ 
truder  or  an  intruder 
firing  at  a  defender  and 
'the  value  of  the  effec¬ 
tiveness  index. 

none 

/ 

/ 

/ 

/ 

The  value  of  the  effec¬ 
tiveness  index  for  di¬ 
rect  fire  weapons. 

various 

/ 

/ 

An  array  containing  the 
angle  of  fall  at  weapon 
impact  for  direct  fire 
weapons . 

degrees 

(n) 

An  array  containing  the 

X  coordinates  of  the 
sortie  aimpoints  in  the 
map  coordinate  system. 

feet 
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EQUIVALENT 


SYMBOL  OR  IN  MATH 


ABBREVIATION 

MODEL 

DEFINITION 

UNITS 

AIMPTY  ('30) 

'^A(n) 

An  array  containing  the 

Y  coordinates  of  the 
sortie  aimpoints  in  the 
map  coordinate  system. 

feet 

All ,  AI2 

The  angle  of  fall  at  im¬ 
pact  for  a  direct  fire 
round . 

degrees 

AKIL 

An  internal  program  vari¬ 
able  used  in  printing 
optional  output. 

none 

ALNGLC 

The  length  of  the  line 
charge  used  as  a  sweep¬ 
ing  device. 

feet 

ALWRAT 

a 

The  ratio  of  the  length 
of  the  target  to  the 
width  of  the  target. 

none 

AM 

A  variable  used  for  tem¬ 
porary  storage  of  the 
maximum  value  of  the  tar¬ 
get  length  and  target 
width . 

feet 

ANG 

A  variable  used  as  tem¬ 
porary  storage  for  the 
angle  at  which  the  in¬ 
direct  fire  volleys  are 
delivered . 

radians 

ANGIMP (10) 

I 

The  angle  of  impact  for 
the  indirect  fire  volley 
delivered  at  each  aim- 
point  . 

degrees 

APHD 

The  probability  of  damage 
given  a  hit  for  a  weapon 
type  employed  against  a 
target  type. 

none 
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EQUIVALENT 


SYMBOL  OR 
ABBREVIATION 

IN  MATH 
MODEL 

DEFINITION 

UNITS 

AREL (5,2) 

R 

The  reliability  of  the 
direct  fire  round  fired 
by  either  defender  or  in¬ 
truder  targets  by  type. 

none 

ARELl 

The  reliability  of  direct 
fire  rounds. 

none 

AREP (20) 

REP 

An  array  containing  the 
range  error  probable  for 
the  direct  fire  round. 

feet 

AREP1,AREP2 

The  range  error  probable 
for  direct  fire  rounds. 

feet 

AWIDLC 

The  width  of  the  line 
charge  effects. 

feet 

AYYVP (10) 

®F{i) 

The  direction  of  attack 
for  each  indirect  fire 
aimpoint,  measured  clock¬ 
wise  from  the  positive  Y 
axis  in  the  map  coordi¬ 
nate  system. 

degrees 

A1 

The  difference  in  Y  co¬ 
ordinates  of  the  end 
points  of  a  travel  path 
segment . 

feet 

A2 

The  difference  in  X  co¬ 
ordinates  of  the  end 
points  of  a  travel  path 
segment . 

feet 

BCEP 


The  circular  error  prob¬ 
able  in  the  normal  plane 
for  direct  or  return  fire 
munitions . 


feet 

or 

mils 


XIX 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS  -  SIMULATION  MODEL 

(CONTINUED) 


SYMBOL  OR 
ABBREVIATION 


EQUIVALENT 
IN  MATH 
MODEL 


BIG 


BIGY 


BREL 


B1 


B2 


COSA 


COSANG 


COSIMP 


COST 


COSTR 


DEFINITION 


The  total  breach  time  for 
a  target. 


A  target  Y  coordinate 
used  in  determining  the 
unit  movement  of  in¬ 
truder  targets. 


The  reliability  of  the 
direct  fire  round  fired 
by  the  intruder  or  de¬ 
fender  . 


An  internal  program  vari¬ 
able. 


An  internal  program  vari¬ 
able  . 


The  cosine  of  the  angle 
defining  the  direction  of 
attack  for  an  indirect 
fire  aimpoint. 


The  cosine  of  the  angle 
of  fall  at  impact  for  an 
indirect  fire  round. 


UNITS 


minutes 


The  cosine  of  the  angle 
defining  the  direction 
of  attack  for  an  indirect 
fire  aimpoint. 


The  cosine  of  the  angle 
defining  the  direction 
of  travel  of  the  delivery 
aircraft. 


The  cosine  of  the  angle 
between  the  directed 
travel  path  segment  and 
the  positive  X  axis  in 
the  map  coordinate  system. 


XX 


feet 


none 


none 


none 


none 


none 


none 


none 


none 
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SYMBOL  OR 
ABBREVIATION 

EQUIVALENT 
IN  MATH 
MODEL 

DEFINITION 

UNITS 

DBFAE 

The  distance  between  fuel 
air  explosive  munition 
aimpoints . 

feet 

DEFHT(5) 

An  array  containing  the 
height  of  the  defender 
targets  by  type. 

feet 

DEFL(5) 

An  array  containing  the 
length  of  the  defender 
targets  by  type. 

feet 

DEFRAD(5) 

An  array  containing  the 
radius  of  the  defender 
targets  by  type. 

feet 

DEFW(5) 

An  array  containing  the 
width  of  the  defender 
targets  by  type. 

feet 

DEFX(20) 

An  array  containing  the 

X  coordinate  of  the  de¬ 
fender  in  the  travel 
path  coordinate  system. 

feet 

DEFY(20) 

An  array  containing  the 

Y  coordinate  of  the  de¬ 
fender  in  the  travel 
path  coordinate  system. 

feet 

DELATM(IOO) 

An  array  containing  the 
time  remaining  for  each 
intruder  to  delay  while 
breaching  the  minefield. 

minutes 

DELTM 

The  total  time  an  in¬ 
truder  is  delayed  while 
traversing  a  travel  path 
segment. 

minutes 
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(CONTINUED) 


SYMBOL  OR 
ABBREVIATION 

DENOM 


EQUIVALENT 
IN  MATH 
MODEL 


DEP(IO) 


DFTFAE 


DIRATK(IO) 


DIRDIS (100) 


^Y(ij) 


DIST(52) 


DISTPD 


Dmt  ! 
AX(ij) 


_ DEFINITION _ UNITS 

A  variable  used  in  the  none 

calculation  of  single 
shot  probability  of  dam¬ 
age  from  indirect  fire 
weapons . 

An  array  containing  the  mils 

deflection  error  proba¬ 
ble  values  for  each 
volley  aimpoint. 

The  intended  distance  in  feet 

front  of  the  intruder  for 
deploying  fuel  air  ex¬ 
plosive  devices. 

An  array  containing  the  radians 

direction  of  attac);  for 
each  indirect  fire  volley 
aimpoint  in  the  travel 
path  coordinate  system. 

An  array  containing  the  feet 

range  distances  to  the 
next  event  for  each  tar¬ 
get. 

The  distance  between  two  feet 

mines  (used  for  sympathe¬ 
tic  detonation  evalua¬ 
tions)  . 

An  array  containing  data  various 

used  to  calculate  values 
of  variables  used  in  out¬ 
put  of  distribution  data. 

The  distance  between  the  feet 

mine  and  the  target. 
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SYMBOL  OR 
ABBREVIATION 

DIST5(21,52) 


DLCF 


EQUIVALENT 
IN  MATH 
MODEL 


DMPIIXdO,  10) 


'RDPI ( i ) 


DMPIIY(10,10)  YHoPi(j) 


DSSP 


DUDPRD(7) 


DSSP 


_ DEFINITION _ 

An  array  containing  dis¬ 
tribution  output  data. 

The  length  of  the  line 
charge  or  the  distance 
between  fuel  air  ex¬ 
plosive  munition  aim- 
points  . 

An  array  containing  the 
X  coordinate  of  the  de¬ 
sired  mean  points  of  im¬ 
pact  for  each  round  de¬ 
livered  at  each  indirect 
fire  aimpoiut. 

An  array  containing  the 
Y  coordinate  of  the  de¬ 
sired  mean  points  of  im¬ 
pact  for  each  round  de¬ 
livered  at  each  indirect 
fire  aimpoint. 

The  distance  in  deflec¬ 
tion  from  a  target  to  an 
indirect  fire  round  im¬ 
pact  point. 

The  sum  of  the  squares  of 
the  distances  in  range 
and  deflection  from  a 
target  to  an  indirect 
fire  round  impact  point. 

The  single  shot  probabil¬ 
ity  of  damage  in  deflec¬ 
tion. 

An  array  containing  the 
probabilities  that  the 
mine  types  are  duds. 


UNITS 


none 


feet 


feet 


feet 


feet 


feet 

squared 


none 
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EQUIVALENT 


SYMBOL  OR 
ABBREVIATION 

IN  MATH 
MODEL 

DEFINITION 

UNITS  1 

DUMMY 

A  dummy  argument  used  by 

none 

RANF. 

D3DEL 

The  time  required  to  re- 

minutes 

move  a  travel  path  block¬ 
age  caused  by  a  damaged 
target  on  the  travel  path 
flanked  by  two  targets 
which  were  damaged  while 
diverting . 


EI(5,5,2) 

An  array  containing  the 
value  and  type  of  the 
effectiveness  indice  for 
each  intruder  target 
type  and  each  indirect 
fire  weapon  type  employed. 

various 

EIVAL 

A  variable  used  to  store 
the  value  of  the  effec¬ 
tiveness  index. 

various 

ETL 

Lex 

The  effective  length  of 
the  target. 

feet 

ETW 

Wex 

The  effective  width  of 
the  target. 

feet 

EVl 

An  internal  program  vari¬ 
able  . 

none 

EV2 

An  internal  program  vari¬ 
able  . 

none 

EV3 

An  internal  program  vari¬ 
able. 

none 

HOL(8) 

An  array  for  temporary 
storage  of  card  images. 

none 

xxiv 
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EQUIVALENT 

SYMBOL  OR 

IN  MATH 

ABBREVIATION 

MODEL 

DEFINITION 

UNITS 

HORIZ 

Th 

The  average  horizontal 
dimension  for  the  in¬ 

feet 

truder  or  defender  type. 

I 

An  internal  program  vari¬ 
able  . 

none 

lAP 

The  sequential  sortie 
aimpoint  number. 

none 

IBIT 

An  internal  program  vari¬ 
able. 

none 

ID 

The  sequential  number  for 
targets  which  must  be  di¬ 
verted  around. 

none 

I  DAM 

A  variable  used  to  signal 
that  a  target  has  been 
damaged  by  direct  or  in¬ 
direct  fire. 

none 

IDET 

The  mine  detonation  flag 
as  determined  by  Sub¬ 
routine  BOOM. 

none 

IDISOP 

The  output  option  for 

none 

distribution  data: 

0  =  distributions  for 
output  variables 
are  not  printed. 

1  =  distributions  for 
output  variables 
are  calculated  and 
printed. 

IDP(20,15,2)  An  array  containing  num-  none 

bers  specifying  sets  of 
delivery  parameters  used 
in  the  direct  fire  meth¬ 
odology  . 
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SYMBOL  OR 
ABBREVIATION 

EQUIVALENT 
IN  MATH 
MODEL 

DEFINITION 

UNITS 

IDPl , IDP2 , 

I  DP  3 

A  number  specifying  a  set 
of  delivery  parameters 
used  in  the  direct  fire 
methodology . 

none 

lEND 

The  run  number  counter. 

none 

IFMT(27) 

An  array  containing  the 
output  format  for  dis¬ 
tribution  data. 

none 

IIS 

An  index  number  indicat¬ 
ing  which  target  is  in 
the  next  event. 

none 

IMINE 

The  sequential  mine  num¬ 
ber. 

none 

IND 

The  number  specifying  the 
set  of  delivery  param¬ 
eters  for  a  direct  fire 
munition . 

none 

INDFA 

A  flag  indicating  that  a 
target  has  encountered 
an  indirect  fire  volley 
aimpoint. 

none 

INPUT 

Local  storage  for  the 
card  type . 

none 

INT(52) 

An  array  containing  the 
intervals  over  which  the 
distribution  data  are 
computed. 

none 

INTIME (7) 

The  fuze  timing  option 
or  target  counting  option 
for  eac*^  mine  type ; 

0  =  mine  type  is  al¬ 
ways  active. 

none 
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EQUIVALENT 

SYMBOL  OR  IN  MATH 

ABBREVIATION  MODEL _ DEFINITION _  UNITS 

1  =  mine  type  has  ON/ 

OFF  cycle  or  counts 
targets  before 
arming . 

INTYP  The  intruder  type.  none 

IOB(5000)  An  array  of  mine  data  none 

travel  path  segment 
boundary  data  and  di¬ 
rect  and  indirect  fire 
data  in  packed  form 
(consisting  of  X  and  Y 
coordinates,  event  type, 
mine  sequential  number, 
and  fuze  timing  cycle 
starting  point  or  target 
count  for  arming) . 

I0UT(15)  An  array  containing  dis-  none 

tribution  output  varia¬ 
bles  . 

IPO  A  variable  containing  none 

alpha  information  indi¬ 
cating  that  a  mine  was 
swept  or  devonated  in 
the  event. 

IPOS (130)  An  array  used  to  store  none 

the  position  in  the 
TMTOFR  array  of  the 
events  in  time  sequence. 

IPRINT  The  number  of  the  itera-  none 

tion  for  which  detailed 
information  concerning 
each  event  is  desired. 

IPRR  An  internal  program  vari-  none 

able  used  to  store  the 
priority  of  the  intruder 
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EQUIVALENT 


SYMBOL  OR 

IN  MATH 

*  ■ 

ABBREVIATION 

MODEL 

DEFINITION 

UNITS 

that  the  defenders  may 
fire  upon. 

none 

IRD 

An  internal  program  vari- 

none 

able . 


IRN  A  variable  used  for  tern-  none 

porary  storage  of  the 
iteration  number. 

IRNK(7)  A  flag  controlling  the  none 

target  counting  option 
for  minejs: 

0  =  mine  will  arm  and 
{ietonate  after 
sensing  KOUNT(MT) 
number  of  targets. 

1  =  mine  will  arm  and 
detonate  after 
’  sensing  a  uniform 
random  number  of 
targets  varying 
from  one  up  to 
KOUNTIMT) . 


I  ROAD 

The  travel  path  segment 
that  the  indirect  fire 
volleys  will  occur  on. 

none 

IRTFIR 

A  flag  indicating  whether 
the  intruders  may  return 
fire . 

none 

IRUNS 

A  replication  or  itera¬ 
tion  counter  which  varies 
between  1  and  NOIT. 

none 

I  SAVE 

/ 

/ 

An  inc^x  number  indica¬ 
ting  ;which  intruder  tar¬ 
get's  in  the  next  event. 

none 
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SYMBOL  OR 
ABBREVIATION 

ISBL 


EQUIVALENT 
IN  MATH 
MODEL 


ISHOT 


ISUB 


ISV 


ISVIFA(30) 


ISVLST 


ISYMP (3) 


ISYP 


DEFINITION 


An  option  describing  the 
disposition  of  swept 
mines : 

0  =  swept  mines  are 
neutralized . 

1  =  swept  mines  are 
blown-in-place . 

An  internal  program  vari¬ 
able  . 

An  internal  program  vari¬ 
able  . 

An  internal  program  vari¬ 
able  . 

An  array  used  to  deter¬ 
mine  which  intruders  are 
accessible  to  fire  from 
the  defender  forces. 

A  save  location  for  the 
last  value  of  ISAVE. 

An  array  containing  the 
sympathetic  detonation 
options  [ISYMP (1)  is  for 
mines,  ISYMP (2)  is  for 
direct  fire  munitions, 
and  ISYMP (3)  is  for  in¬ 
direct  fire  munitions] ; 

0  =  sympathetic  detona¬ 
tions  are  not  eval¬ 
uated  . 

1  =  sympathetic  detona¬ 
tions  are  evaluated. 

A  flag  to  initiate  unit 
movement  considerations. 


XXIX 


UNITS 


none 


none 


none 


none 


none 


none 


none 


none 
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SYMBOL  OR 
ABBREVIATION 


EQUIVALENT 
IN  MATH 
MODEL 


IT 


ITEMP 


ITEROP 


ITEST 


ITGT 


ITGTPR(5 , 5) 


ITT 


ITYP 


IVAP 


IVEL 


DEFINITION 


UNITS 


The  mine  random  starting 
time,  the  target  count 
required  for  arming ,  or 
the  direct  fire  area. 


various 


An  internal  program  vari¬ 
able  • 


none 


An  option  for  printing 
the  iteration  output: 

=  do  not  print  iter¬ 
ation  results. 

=  print  iteration  re¬ 
sults  . 


0 


An  internal  program  vari¬ 
able  . 


Temporary  storage  for  the 
intruder  target  number . 


An  array  containing  the 
list  by  type  of  the  order 
in  which  the  defender 
forces  will  fire  at  the 
intruders . 


An  internal  program  vari¬ 
able. 


Temporary  storage  for  the 
intruder  target  type. 


The  number  of  the  indi¬ 
rect  fire  volley  aim- 
point  . 


A  program  switch  that 
contains  a  one  if  all 
targets  are  in  a  delay 
condition;  otherwise,  it 
contains  a  zero. 


XXX 


none 


none 


none 


none 


none 


none 


none 


none 
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EQUIVALENT 
IN  MATH 
MODEL 

DEFINITION 

UNITS 

IVPO 

An  internal  program  vari¬ 
able  . 

none 

IWD 

An  internal  program  vari¬ 
able. 

none 

IWEPV 

The  sequential  number  of 
the  indirect  fire  round. 

none 

I  WORD 

The  data  for  an  event  in 
paclted  format. 

none 

IWT 

Temporary  storage  for  the 
weapon  type. 

none 

IWTDEF (20) 

An  array  containing  the 
weapon  type  of  each  de¬ 
fender  . 

none 

IWTVA? (10) 

An  array  containing  the 
indirect  fire  weapon 
type  employed  at  each 
aimpoint . 

none 

IX 

An  internal  program  vari¬ 
able. 

none 

lY 

An  internal  program  vari¬ 
able. 

none 

IXYMl 

An  internal  program  vari¬ 
able  . 

none 

IXYM2 

An  internal  program  vari¬ 
able  . 

none 

11 

An  internal  program  vari¬ 
able. 

none 

12 

An  internal  program,  vari¬ 
able  . 

none 

XXXI 


SIMULATION  MODEL 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS  - 

(CONTINUED) 

EQUIVALENT 

SYMBOL  OR  IN  MATH 

ABBREVIATION  MODEL  DEFINITION 


13  An  internal  program  vari¬ 
able. 

14  An  internal  program  vari¬ 
able  . 


15 

18 

114 

J 

JAA 

JFMT(27) 


JMARKl 

JSELDS (7) 


An  internal  program  vari¬ 
able. 

An  internal  program  vari¬ 
able  . 

An  internal  program  vari¬ 
able. 

An  internal  program  vari¬ 
able  . 

An  internal  program  vari¬ 
able. 

An  array  containing  thci 
program-derived  output 
format  for  distribution 
data . 

A  control  for  printing 
the  output  heading. 

An  option  for  specifying 
the  type  of  mine  pattern 
distribution  for  each 
mine  type: 

0  =  mine  pattern  is 
read  from  cards. 

1  =  range  and  deflec¬ 
tion  values 
selected  from  ran¬ 
dom  normal  distri¬ 
bution  . 


xxxii 


UNITS 

none 

none 

none 

none 

none 

none 

none 

none 

none 

none 
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EQUIVALENT 

SYMBOL  OR  IN  MATH 

ABBREVIATION  MODEL  _ DEFINITION _ 

2  =  range  and  deflec¬ 

tion  values 
selected  from  ran¬ 
dom  uniform  dis¬ 
tribution  . 

3  =  range  value 

selected  from  ran¬ 
dom  normal  distri¬ 
bution  and  deflec¬ 
tion  value  selected 
from  random  uni¬ 
form  distribution. 

4  =  range  value 

selected  from  ran¬ 
dom  uniform  dis¬ 
tribution  and  de¬ 
flection  value 
selected  from  ran¬ 
dom  normal  distri- 


bution 

• 

JT 

An  internal 
able . 

program 

vari- 

J1 

An  internal 
able . 

program 

vari- 

J2 

An  internal 
able . 

program 

vari- 

J3 

An  internal 
able . 

program 

vari- 

J4 

An  internal 
able. 

program 

vari- 

J5 

An  internal 
able . 

program 

vari- 

K 

An  internal 
able . 

program 

vari- 

xxxiii 


UNITS 


none 

none 

none 

none 

none 

none 

none 
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EQUIVALENT 


SYMBOL  OR 
ABBREVIATION 

IN  MATH 
MODEL 

DEFINITION 

UNITS 

KABOOM(547) 

An  array  containing 

32,820  bits  for  maintain¬ 
ing  mine  detonation 
flags . 

none 

KB 

The  sequential  number  for 
the  first  intruder  tar¬ 
get  of  the  same  type  as 
the  damaged  target  and 
behind  the  damaged  tar¬ 
get  . 

none 

KDFTTN (100) 

An  array  containing  the 
count  of  the  number  of 
direct  fire  areas  in 
which  each  intruder  tar¬ 
get  may  receive  direct 
fire. 

none 

KF 

The  sequential  number  for 
the  first  intruder  tar¬ 
get  of  the  same  type  as 
the  damaged  target  and  in 
front  of  the  damaged  tar¬ 
get. 

none 

KFMT(27) 

An  array  containing  the 
program-derived  output 
format  for  distribution 
data. 

none 

KNOB 

The  number  or  the  last 
event  to  be  considered  in 
sympathetic  detonation 
evaluation . 

none 

KNOBT 

A  variable  used  as  tem¬ 
porary  storage  of  the 
type  of  event  to  occur. 

none 

KNRS 

The  sequential  number  of 
the  travel  path  segment. 

none 
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SYMBOL  OR 
ABBREVIATION 

IN  MATH 
MODEL 

DEFINITION 

UNITS 

KODEI 

Temporary  storage  for 
the  type  of  effective¬ 
ness  index  used. 

none 

KOUNT(7) 

An  array  containing  the 
target  counts  at  which 
the  mine  types  will  arm 
and  detonate. 

none 

KPOS 

A  variable  used  for  tem¬ 
porary  storage  of  the 
intruder  number. 

none 

KREAD 

A  switch  indicating 
whether  Subroutine 

READIN  has  been  used: 

0  =  READIN  has  not 
been  used. 

1  =  READIN  has  been 
used . 

none 

KT 

An  index  number  which 
locates  an  event  in  the 
lOB  array. 

none 

KTMAX 

The  maximum  mine  sequen¬ 
tial  number  (used  in  the 
sympathetic  detonation 
evaluations) . 

none 

KTMIN 

The  minimum  mine  sequen¬ 
tial  number  (used  in  the 
sympathetic  detonation 
evaluations) . 

none 

KTS 

The  location  in  which 
the  sequential  mine  num¬ 
ber  is  saved. 

none 

KTSAV(IOO) 

An  array  of  indice  con¬ 
taining  the  subscript  of 

none 
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EQUIVALENT 

SYMBOL  OR  IN  MATH 

ABBREVIATION  MODEL _ DEFINITION _  UNITS 

the  next  event  to  be  en¬ 
countered  by  each  of  the 
targets . 

KTSl  An  internal  program  vari-  none 

able . 

KZ  An  internal  program  vari-  none 

able. 

Kl  An  internal  program  vari-  none 

able  • 

K2,K3  a  flag  indicating  the  di-  none 

rection  of  direct  fire; 

1  =  a  defender  firing 

at  an  intruder. 

2  =  an  intruder  firing 

at  a  defender. 

K5  An  internal  program  vari-  none 

able. 

K6  An  internal  program  vari-  none 

able . 

L  An  internal  program  vari-  none 

able. 

LCFOPT  The  option  for  employing  none 

line  charge  or  FAE  de¬ 
vices  for  sweeping: 

0  =  neither  are  used. 

1  =  line  charges  are 

employed . 

2  =  FAE  are  employed. 

LCFTT  The  tc\rget  type  which  none 

deploys  the  line  charge 
or  fuel  air  explosive 
sweeping  device. 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS  -  SIMULATION  MODEL 

(CONTINUED) 


SYMBOL  OR 
ABBREVIATION 

LDFDPR(5, 5) 

LEFTIN 

LFMT(27) 

LIT 

LL 

M 

MADIV 

MFMT(27) 

MI 

MIFBT(7) 


EQUIVALENT 
IN  MATH 

MODEL  DEFINITION 


An  array  containing  the 
order  in  which  each  in¬ 
truder  target  type  will 
fire  at  the  defender  tar¬ 
get  types. 

The  number  of  targets 
which  have  not  been 
destroyed  or  have  not 
breached  the  engagement 
area. 

An  array  containing  the 
output  format  for  dis¬ 
tribution  data. 

An  internal  program  vari¬ 
able. 

An  internal  program  vari¬ 
able. 

An  internal  program  vari¬ 
able. 

An  indicator  which,  if 
greater  than  zero,  speci¬ 
fies  that  targets  must 
be  diverted  around. 

An  array  containing  the 
output  format  for  dis¬ 
tribution  data. 

An  internal  program  vari¬ 
able. 

An  array  specifying  ,the 
number  of  mines  within 
the  range  of  influence 
for  each  mine  type. 
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UNITS 

none 

none 

none 

none 

t 

none 

none 

none 

none 

none 

none 
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SYMBOL  OR 

abbreviation 

MINNUM 


MODE 


equivalent 

IN  MATH 
MODEL 


MTFA(50) 


MUSH 


_ definition _ 

The  niunber  of  sympathetic 
detonations . 

tactical  mode  to  be 
employed : 

1  =  bull-through  at 
normal  speed  with 
no  sweeping. 

3  =  allow  specified 
targets  to  sweep 
minefield . 

The  mine  type  number. 

An  array  containing  the 
type  of  mine  dispensed 
at  each  aimpoint. 

A  code  specifying  whether 
the  targets  have  started 
moving : 

0  =  the  targets  have 
not  started  moving 

i  =  the  targets  have 
started  moving. 

An  internal  program  vari¬ 
able. 


UNITS 


none 


none 


none 


none 


none 


none 


NAS (100) 


The  number  of  sortie  aim- 
points. 

An  array  containing  se¬ 
quential  numbers  of  the 
targets  associated  as  a 
group  with  the  damaged 
target. 

An  internal  program  vari¬ 
able  . 


none 


none 


none 
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SYMBOL  OR 
ABBREVIATION 

NCTAW(IOO) 

ND 

NDEFEA(15,20) 

NDEFNR 

NDF 

NDFA 

NDFAA 

NDFPAM(5) 

NDFWn 

NDFWT 

NDTYP 

NDVT 


EQUIVALENT 
IN  MATH 

_  MODEL  _ DEFINITION 


An  array  containing  the 
number  of  the  target 
leading  the  column  with 
which  each  target  is 
associated, 

A  count  of  the  number  of 
direct  fire  areas. 

An  array  containing  the 
sequential  defender  num¬ 
bers  that  may  fire  into 
the  direct  fire  areas. 

Temporary  storage  of  the 
number  of  the  defender. 

The  defender  associated 
with  this  event. 

A  flag  indicating  that  an 
intruder  target  has  en¬ 
tered  a  direct  fire  area. 

The  number  of  direct  fire 
attack  areas. 

An  array  containing  the 
number  of  defenders 
damaged  by  type. 

The  number  of  defenders. 

The  number  of  defender 
weapon  types. 

The  defender  weapon  type. 

The  number  of  targets 
which  must  be  diverted 
around. 


UNITS 

none 

none 

none 

none 

none 

none 

none 

none 

none 

none 

none 

none 
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EQUIVALENT 


SYMBOL  OR 
ABBREVIATION 

IN  MATH 
MODEL 

DEFINITION 

UNITS 

NE 

An  internal  program  vari¬ 
able. 

none 

NFMT(27) 

An  array  containing  the 
program-derived  output 
format  for  distribution 
data . 

none 

NGTAW(IOO) 

An  array  containing  the 

none 

sequential  numbers  of 
other  targets  with  which 
each  target  is  associated 
as  a  group. 


NGTAWT 

The  total  number  of  tar¬ 
gets  which  are  associated 
as  a  group  with  other 
targets . 

none 

NGTAWl (100) 

An  array  originally  con¬ 
taining  the  NGTAW  array 
variables  (changed  when 
a  target  is  reassociated 
with  another  target) . 

none 

NIDBT(5) 

An  array  containing  the 
number  of  intruders 
damaged  by  type. 

none 

NINTT 

Temporary  storage  of  the 
intruder  target  type. 

none 

NITBT(5) 

An  array  containing  the 
number  of  intruders  by 
type. 

none 

NKILL(5) 

An  array  containing  the 
number  of  intruder  tar¬ 
gets  by  type  damaged  by 
mines . 

none 

LIST  OF  SYMBOLS  AND  ABBREVIATIONS  -  SIMULATION  MODEL 

(CONTINUED) 


SYMBOL  OR 
ABBREVIATION 

NKILLD(5) 

NKILLI (5) 

NKILLT 

NLCFCT 

NLST 

NM 

NMDET ( 7 ) 

NMIN(7) 

NMSWPT(7) 

NMT 


EQUIVALENT 
IN  MATH 

MODEL  DEFINITION 


An  array  containing  the 
number  of  intruders  by 
type  damaged  by  direct 
fire  weapons-. 

An  array  containing  the 
number  of  intruders  by 
type  damaged  by  indirect 
fire  weapons. 

The  total  number  of  in¬ 
truder  targets  damaged. 

A  count  of  the  number  of 
line  charge  or  FAE  de¬ 
ployment  positions  along 
the  travel  path  segment. 

The  number  of  sympathetic 
detonations . 

The  mine  type . 

An  array  containing  the 
number  of  mines  detonated 
by  mine  type. 

An  array  containing  the 
total  number  of  mines  of 
each  type  emplaced. 

An  array  containing  the 
number  of  mines  of  each 
type  detected  and  neutra¬ 
lized  by  a  target  capable 
of  sweeping. 

The  total  nun±>er  of  mine 
types . 


UNITS 

none 

none 

none 

none 

none 

none 

none 

none 

none 

none 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS  -  SIMULATION  MODEL 

(CONTINUED) 


SYMBOL  OR 
ABBREVIATION 


EQUIVALENT 
IN  MATH 
MODEL 


NOBEVT 


NOBT(IOO) 


NOBTP2 


NOIT 


NOSTAT 


NRAD { 5 ) 


NRADFD(5) 


_ DEFINITION _ 

The  total  number  of  mines 
within  the  range  of  in¬ 
fluence  of  a  travel  path 
segment. 

The  number  of  events  for 
which  optional  output  is 
printed. 

An  array  containing  the 
mine  types  for  mines 
which  are  sympathetically 
detonated. 

The  type  of  event  obsta¬ 
cle  (1  through  7  =  active 
mine;  8  =  minefield 
boundary;  9  through  15  = 
dud  mine;  16  =  indirect 
fire  volley  aimpoint; 

17  =  direct  fire  entry 
boundary;  18  =  direct 
fire  exit  boundary;  and 
19  =  point  of  deployment 
of  line  charge  or  FAE) . 

The  number  of  iterations 
desired  for  the  case. 

The  number  of  iterations 
between  each  statistical 
summary . 

An  array  containing  the 
number  of  rounds  avail¬ 
able  for  each  defender 
weapon  type. 

An  array  used  for  tempo¬ 
rary  storage  of  the  num¬ 
ber  of  rounds  available 
for  each  defender  weapon 
type. 


UNITS 


none 


none 


none 


none 


none 


none 


xlii 


-S.  0.  SVMBO.S  ..0 


SYMBOL  OR 

abbreviation 

NRADFI (5) 


NRAI (5) 


NRBA 


equivalent 

IN  MATH 
MODEL 


NRFBDT (5) 


NRFBIT(5) 


NRFIRD(IOO) 


NS.'LFT 


NSTICK(50) 


NSUB(5) 


-  _  definition _ 

An  array  used  for  tempo¬ 
rary  storage  of  the  num¬ 
ber  of  rounds  available 
for  each  intruder  type. 

An  array  containing  the 
number  of  rounds  avail¬ 
able  for  each  intruder 
type. 

The  number  of  rounds  the 
defender  forces  must 
fire  before  being  ac¬ 
quired  by  the  intruder 
forces . 

An  array  containing  the 
number  of  rounds  fired 
by  each  defender  type. 

An  array  containing  the 
number  of  rounds  fired 
by  each  intruder  type. 

An  array  containing  the 
number  of  rounds  fired 
by  each  intruder. 

The  number  of  travel 
path  segments. 

The  number  of  targets  re¬ 
maining  which  are  capable 
of  sweeping. 

An  array  containing  the 
number  of  mines  dispensed 
at  each  aimpoint. 

An  array  containing  the 
number  of  submunitions 
for  improved  conventional 
munitions. 


UNITS 


none 


none 


none 


none 


none 


none 


none 


none 


none 
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SYMBOL  OR 
ABBREVIATION 

EQUIVALENT 
IN  MATH 
MODEL 

DEFINITION 

UNITS 

NT 

The  target  type  number. 

none 

NTABLE 

The  number  of  the  proba¬ 
bility  function  to  be 
interpolated . 

none 

NTB 

A  number  indicating  the 
type  of  probability 
table . 

none 

NTCOL(IOO) 

An  array  containing  col¬ 
umn  identification  for 
targets  which  must  be  di¬ 
verted  around . 

none 

NTGO 

The  total  number  of  tar¬ 
gets  traversing  the  en¬ 
gagement  area. 

none 

NTGTP 

The  total  number  of  in¬ 
truder  target  types. 

none 

NTGTYP (100) 

An  array  containing  the 
target  type  for  each  in¬ 
truder  target. 

none 

NTLCIF (10) 

An  array  containing  the 
number  of  the  target 
leading  the  column  of 
intruders  that  initiates 
the  indirect  fire  at  each 
volley  aimpoint. 

none 

NTLOST 

The  number  of  intruder 
targets  which  are  lost  to 
the  mission. 

none 

NTMAX 

The  maximum  number  of  in¬ 
truder  types,  mine  types, 
and  defender  types. 

none 

LIST  OF  SYMBOLS  AND  ABBREVIATIONS  -  SIMULATION  MODEL 

(CONTINUED) 


EQUIVALENT 

SYMBOL  OR  IN  MATH 

ABBREVIATION  MODEL 

NTN 

NTTTCS (5) 


NTTTMD(5) 


>'■ 

NTTTRP (5) 


NTl 


DEFINITION 


The  intruder  number. 

An  array  containiny  flags 
describing  the  sweeping 
capability  of  each  tar¬ 
get  type: 

0  =  the  target  type  has 
no  sweeping  capa¬ 
bility. 

1  =  the  target  type  is 
capable  of  sweep¬ 
ing  at  least  one 
mine  type. 

An  array  containing  flags 
describing  which  target 
types  must  be  diverted 
around  by  subsequent  tar¬ 
gets  in  the  same  column: 

0  =  the  target  type 
need  not  be  di¬ 
verted  around. 

1  =  the  target  type 
must  be  diverted 
around . 

An  array  containing  flags 
describing  which  target 
types  are  rollers  or 
plows : 

0  =  the  target  type  is 
not  a  roller  or 
plow. 

1  =  the  target  type  is 

a  roller. 

2  =  the  target  type  is 

a  plow. 

An  internal  program  vari¬ 
able. 


xlv 


UNITS 

none 

none 


none 


none 


nonf? 
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ABBREVIATION 

EQUIVALENT 
IN  MATH 
MODEL 

DEFINITION 

UNITS 

NUM 

An  internal  program  vari¬ 
able  . 

none 

NUMCNT 

The  number  of  time  ori¬ 
ented  events  which  may 
occur  before  the  dis¬ 
tance  oriented  event. 

none 

NUMDEF 

The  defender  number. 

none 

NVAP 

The  number  of  the  indi¬ 
rect  fire  volley  aimpoint 
involved  in  this  event. 

none 

NVFAEA(IO) 

An  array  containing  the 
number  of  volleys  fired 
at  each  volley  aimpoint. 

none 

NVLIDF(IO) 

An  array  containing  the 
number  of  indirect  fire 
volleys  remaining  to  be 
fired  at  each  volley 
aimpoint . 

none 

NVOL 

The  number  of  the  indi¬ 
rect  fire  volley. 

none 

NW 

An  internal  program  vari¬ 
able  . 

none 

NWEPV(IO) 

An  array  containing  the 
number  of  rounds  to  be 
employed  at  each  indirect 
fire  volley  aimpoint. 

none 

N1 

An  internal  program  vari¬ 
able  . 

none 

N2 

An  internal  program  vari¬ 
able  . 

none 
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ABBREVIATION 

IN  MATH 
MODEL 

DEFINITION 

UNITS 

N3 

An  internal  program  vari¬ 
able  . 

none 

OBX 

^MR ( i) 

The  X  coordinate  of  the 
distance  oriented  event. 

feet 

OBY 

'“'mr  ( i) 

The  Y  coordinate  of  the 
distance  oriented  event. 

feet 

OBYPRT 

A  location  for  saving  OBY 
values  so  that  they  can 
be  printed. 

feet 

ORX 

An  intermediate  X  coordi¬ 
nate  of  the  mine  (used 
during  the  initial  cal¬ 
culations  of  the  mine 
position) . 

feet 

ORY 

An  intermediate  Y  coordi¬ 
nate  of  the  mine  (used 
during  the  initial  cal¬ 
culations  of  the  mine 
position) . 

feet 

OUT(16) 

An  array  containing  the 
iteration  results  to  be 
printed . 

none 

OUT(21,15) 

An  array  containing  the 
values  of  the  distribu¬ 
tion  variables  to  be 
output . 

none 

PATRAD(5) 

Rp 

An  array  containing  the 
improved  conventional 
munition  pattern  radius 
for  each  weapon  type. 

none 

PDAM 

The  probability  that  a 
target  has  been  damaged 
by  indirect  fire. 

none 
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SYMBOL  OR 
ABBREVIATION 

IN  MATH 
MODEL 

DEFINITION 

UNITS 

PDLCF 

Pdf 

The  probability  of  mine 
detonation  within  the 
line  charge  or  fuel  air 
explosive  pattern. 

none 

PHD (5, 5) 

An  array  containing  the 
probability  of  damage 
given  a  hit  for  each  in¬ 
direct  fire  weapon  type 
employed  against  each 
intruder  target  type. 

none 

PI 

A  variable  used  to  store 
the  value  of  it  . 

none 

PK 

The  square  of  the  range 
at  which  the  probability 
of  target  damage  is  zero. 

feet 

squared 

PKK 

The  probability  that  a 
target  has  been  damaged 
by  indirect  fire. 

none 

POWER 

A  variable  used  as  the 
exponent  in  the  calcula¬ 
tion  of  the  probability 
of  damage  given  a  hit  by 
indirect  fire  weapons. 

none 

PPEAF(7) 

An  array  containing  the 
probability  that  a 
plowed  mine  type  will 
function . 

none 

PRBITY 

P 

A  probability  value  de¬ 
termined  by  Subroutine 
TABINT. 

none 

PRDTNO (5,7) 

An  array  concaining  the 
minimum  ranges  at  which 
the  probability  that  a 
mine  will  detonate  is 

feet 

xlviii 
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IN  MATH 
MODEL 


Pa.P 


q+1 


DEFINITION 


zero  for  each  mine  type 
and  target  type. 

An  array  containing  the 
minimum  ranges  at  which 
the  probability  that  a 
mine  will  damage  a  target 
is  zero  for  each  mine 
type  and  target  type. 

An  array  of  probability 
values  corresponding  to 
the  range  values  stored 
in  RANGPR(840),  with  the 
first  eight  entries 
specifying  the  probabil¬ 
ities  of  mine  detection 
for  the  first  target 
type  and  first  mine  type, 
the  second  eight  entries 
specifying  the  probabil¬ 
ities  that  a  mine  of  the 
first  type  will  damage  a 
target  of  the  first  type, 
and  the  third  eight  en¬ 
tries  specifying  the 
probabilities  that  a 
mine  of  the  first  type 
will  detonate  when  en¬ 
countered  by  a  target  of 
the  first  type.  The  next 
three  sets  of  eight  en¬ 
tries  contain  similar 
data  for  Target  Type  1 
and  Mine  Type  2,  etc. 

An  array  used  to  tempo¬ 
rarily  store  probability 
values  during  input 
operations . 


UNITS 


feet 


none 


none 


f’ 
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EQUIVALENT  V 

IN  MATH  \ 

MODEL  DEFINITION 

UNITS 

PRSWDO (5,7) 

An  array  containing  the 
minimum  ranges  at  which 
the  probability  that  the 
target  will  detect  a  mine 
is  zero  for  each  mine 
type  and  target  type. 

feet 

P2 

An  internal  progicim  vari¬ 
able. 

none 

P3 

An  internal  program  vari¬ 
able  . 

none 

P4 

An  internal  program  vari¬ 
able  . 

none 

P5 

An  internal  program  vari¬ 
able. 

none 

RADFAE 

Rp 

The  radius  of  the  fuel 
air  explosive  effects. 

feet 

RANGE 

The  width  of  the  line 
charge  or  the  square  of 
the  radius  of  the  fuel 
air  explosive  effects. 

feet 

RANGPR(840)  Rq,Rq4.]  An  array  of  range  values  feet 

corresponding  to  the 
probability  values  stored 
in  PROBIL(840)  ,  with  the 
first  eight  entries 
specifying  the  ranges 
corresponding  to  the 
probabilities  of  mine 
detection  for  the  first 
target  type  and  first 
mine  type,  the  second 
eight  entries  specifying 
the  ranges  corresponding 
to  the  probabilities  that 
a  mine  of  the  first  type 


I 
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SYMBOL  OR  IN  MATH 

ABBREVIATION  MODEL  _ DEFINITION _  UNITS 

will  damage  a  target  of 
the  first  type,  and  the 
third  eight  entries 
specifying  the  ranges 
corresponding  to  the 
probabilities  that  a  mine 
of  the  first  type  will 
detonate  when  encountered 
by  a  target  of  the  first 
type.  The  next  three 
sets  of  eight  entries 
contain  similar  data  for 
Target  Type  1  and  Mine  , 

Type  2 ,  etc . 

RANGTP(8)  An  array  used  to  tempo-  feet 

rarily  store  range  values 
during  input  operations. 

RELRND(5)  An  array  containing  the  none 

reliability  of  the  round 
for  each  indirect  fire 
weapon  type. 

RELSUB(5)  Rg  An  array  containing  the  none 

reliability  of  the  sub¬ 
munition  for  each  im¬ 
proved  conventional 
munition  indirect  fire 
weapon  type . 

RL’^(IO)  The  range  error  probable  feet 

at  each  indirect  fire 
volley  aimpoint. 

RN  Urn  A  random  number  from  a  none 

uniform  distribut j/on . 

/ 

« 

RNG  The  distance  between  the  feet 

defender  and  intruder. 
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SYMBOL  OR 
ABBREVIATION 

IN  MATH 
MODEL 

DEFINITION 

UNITS 

RNGSVO) 

An  array  for  temporary 

none 

storage  of  elements  from 
the  PRSWDO,  PRKLO,  and  - 
PRDTNO  arrays. 


RN1,RN2 

RN3,RN4 

A  normal  random  number 
used  in  computing  the 
mine  locations. 

none 

RO 

^0 

The  distance  in  range 
from  a  target  to  an  in¬ 
direct  fire  round  impact 
point . 

feet 

ROTDMPX(10,10) 

^RI  (  j ) 

An  array  containing  the 

X  coordinates  of  the  de¬ 
sired  mean  points  of  im¬ 
pact  for  the  rounds  de¬ 
livered  at  each  volley 
airapoint. 

feet 

ROTDMPY(10,10) 

(  j) 

An  array  containing  the 

Y  coordinates  of  the  de¬ 
sired  mean  points  of  im¬ 
pact  for  the  rounds  de¬ 
livered  at  each  volley 
aimpoint . 

feet 

RSP(5) 

An  array  containing  the 
ranges  of  influence  for 
each  target  type. 

feet 

RSPMAX 

The  maximum  range  of  in¬ 
fluence  . 

feet 

RSSP 

RSSP 

The  single  shot  probabil¬ 
ity  of  damage  in  range. 

none 

RSTART 

Rm 

A  random  number  from  a 
normal  distribution. 

none 
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RUNS 

S(IOO) 


SAVE 

SEC0N(7) 

^on 

SEC0FF(7) 

bo  f  f 

SEED 

SHADOL 

b-SH 

SIGAD(50) 

'^AD 

DEFINITION 


The  iteration  count. 

An  array  containing  vari¬ 
ables  controlling  the  di¬ 
version  direction: 

-1  =  divert  to  the 
left . 

1  =  divert  to  the 
right . 

0  =  no  diversion  is 
required . 

999  =  the  target  path 

blockage  has  been 
removed;  no  di¬ 
version  is  re¬ 
quired  . 

An  internal  program  vari¬ 
able. 

The  duration  of  the 
active  portion  of  the 
fuze  timing  cycle  for 
each  mine  type. 

The  duration  of  the  in¬ 
active  portion  of  the 
fuze  timing  cycle  for 
each  mine  type. 

A  number  used  as  a  start¬ 
ing  value  for  the  random 
number  generator. 

The  target  shadow  length. 

The  aiming  error  stand¬ 
ard  deviation  in  deflec¬ 
tion  (this  value  multi¬ 
plied  by  a  normal  random 
number  vector  is  applied 
to  each  mine  in  a  sortie) . 


UNITS 

none 

none 


none 

seconds 

seconds 

none 

feet 

feet 


liii 


1 
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SIGAR(50)  0^^  The  aiming  error  stand-  feet 

ard  deviation  in  range 
(this  value  multiplied 
by  a  normal  random  num¬ 
ber  vector  is  applied  to 
each  mine  in  a  sortie) . 

SICBD(50)  Og[3  The  ballistic  error  feet 

standard  deviation  in 
deflection  (this  value 
multiplied  by  a  normal 
random  number  vector  is 
applied  independently  to 
each  mine) . 

SIGBR(50)  Ugg  The  ballistic  error  feet 

standard  deviation  in 
range  (this  value  multi¬ 
plied  by  a  normal  random 
number  vector  is  applied 
independently  to  each 
mine) . 

SINA  The  sine  of  the  angle  de-  none 

fining  the  direction  of 
attack  for  an  indirect 
fire  aimpoint. 

SINANG  The  sine  of  the  angle  de-  none 

fining  the  direction  of 
attac)^  for  an  indirect 
fire  aimpoint. 

SINIMP  The  sine  of  the  angle  of  none 

impact  of  the  round  em¬ 
ployed  at  the  indirect 
fire  aimpoint. 

SINT  The  sine  of  the  angle  de-  none 


fining  the  direction  of 
travel  of  the  delivery 
aircraft . 
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SINTR 

The  sine  of  the  angle  be¬ 
tween  the  directed  travel 
path  segment  and  the 
positive  X  axis  in  the 
map  coordinate  system. 

none 

SMALY 

An  intruder  target  Y  co¬ 
ordinate  used  in  deter¬ 
mining  the  unit  movement 
of  targets. 

feet 

SMLDIS 

The  smallest  distance  to 
the  next  event  for  all 
targets . 

fe.et 

SMLDISl 

The  smallest  distance  to 
the  next  event  for  all 
moving  targets. 

feet 

SOBX 

Temporary  storage  for  the 
mine  X  coordinate. 

feet 

SOBY 

Temporary  storage  for  the 
mine  Y  coordinate. 

feet 

SRPI 

The  square  root  of  it. 

none 

SSPD 

SSPd 

The  single  shot  probabil¬ 
ity  of  damage. 

none 

STATAL(5, 

An  array  of  five  quanti¬ 
ties  (i.e.,  the  sum,  the 
sum  of  squares,  the  mean, 
the  variance,  and  the 
standard  deviation)  for 
each  of  the  52  parameters 
for  which  statistical 
output  is  provided. 

var iou 

SURVPR 

The  probability  of  tar¬ 
get  survival. 

none 
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SWPDEL(IOO) 


SYMDDF (5, 7) 


equivalent 

IN  MATH 
MODEL 


SYMDIF(5,7) 


SYMDIS(7,7) 


SYMMAXO) 


definition 


TADJ 


An  array  containing  the 
times  required  to  remove 
or  neutralize  mines  for 
each  target. 

An  array  containing  the 
maximum  distances  at 
which  each  direct  fire 
weapon  type  can  cause  a 
mine  of  each  type  to 
detonate  sympathetically, 

An  array  containing  the 
maximum  distances  at 
which  each  indirect  fire 
weapon  type  can  cause  a 
mine  of  each  type  to 
detonate  sympathetically. 

An  array  containing  the 
maximum  distances  at 
which  each  mine  type  can 
cause  a  mine  of  each 
type  to  sympathetically 
detonate. 

An  array  containing  the 
maximum  distances  at 
which  mines  may  be 
sympathetically  detonated 
by  other  mines,  direct 
fire  weapons  and  indirect 
fire  weapons. 

An  adjustment  made  to 
TIMEMVCIOO)  to  correct 
the  target  travel  time  at 
the  beginning  of  each 
travel  path  segment. 


MODEL 


UNITS 


minutes 


feet 


feet 


feet 


feet 


minutes 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS  -  SIMULATION  MODEL 

(CONTINUED) 


SYMBOL  OR 
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TARHT(5) 


TARL ( 5 ) 


TARRAD(5: 


TARW ( 5 ) 


TDBIFV(IO) 


EQUIVALENT 
IN  MATH 
MODEL 


TGTD 


TGTDELdOO] 


TGTOVL 


TGTSPD 


_ DEFINITION _ 

An  array  containing  the 
height  of  the  intruder 
targets  by  type. 

An  array  containing  the 
length  of  the  intruder 
targets  by  type. 

An  array  containing  the 
radius  of  the  intruder 
targets  by  type. 

An  array  containing  the 
width  of  the  intruder 
targets  by  type. 

An  array  containing  the 
time  delay  between  the 
volleys  fired  at  each 
aimpoint . 

The  time  the  target  was 
delayed  due  to  the  re¬ 
moval  of  a  travel  path 
blockage . 

An  array  containing  the 
times  each  target  was 
delayed  due  to  the  re¬ 
moval  of  a  travel  path 
blockage . 

The  normal  speed  of  the 
targets . 


The  speed  of  the  in¬ 
truder  targets. 


UNITS 


feet 


feet 


feet 


feet 


minutes 


minutes 


minutes 


feet 

per 

minute 

feet 

per 

minute 
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DEFINITION 

UNITS 

TGTVEL(IOO) 

An  array  containing  the 
speed  of  each  target. 

feet 

per 

minute 

TGTVL2 

The  sweep  rate. 

feet 

per 

minute 

TGTVSV 

Temporary  storage  for  the 
target  velocity. 

feet 

per 

minute 

TGTXOL(IOO) 

(  j) 

An  array  containing  the 
original  X  coordinate  for 
each  target  in  the  travel 
path  coordinate  system. 

feet 

TGTYNW(IOO) 

(  j  ) 

An  array  containing  the 
current  Y  coordinate  of 
each  target  in  the 
travel  path  coordinate 
system. 

feet 

TGTYOL(IOO) 

An  array  containing  the 
original  Y  coordinate  of 
each  target  in  the 
travel  path  coordinate 
system. 

feet 

TGTYSV 

The  Y  coordinate  of  the 
event  target  at  the  point 
of  closest  approach  to 
the  mine. 

feet 

THET 

THETA  in  radians. 

radians 

THETA 

0 

The  angle  defining  the 
direction  of  travel  of 
the  delivery  aircraft 
(measured  clockwise  from 
the  positive  Y  axis) . 

degrees 

Iviii 
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DEFINITION 

UNITS 

THETR 

0R 

The  angle  between  the  di¬ 
rected  travel  path  seg¬ 
ment  and  the  positive  X 
axis  in  the  map  coordi¬ 
nate  system. 

degrees 

THRSIG(5,5) 

An  array  containing  dis¬ 
tances  beyond  which  the 
effects  of  indirect  fire 
detonations  are  not  con¬ 
sidered  for  each  indirect 
fire  weapon  type  and  each 
target  type. 

feet 

TIMEMV(IOO) 

An  array  containing  the 
travel  time  for  each 
target. 

minutes 

TM(130) 

A  temporary  storage  array 
for  event  times. 

minutes 

TMBRD(5) 

An  array  containing  the 
reload  and  aim  times  for 
each  defender  target  type. 

minutes 

TMBRI (5) 

An  array  containing  the 
reload  and  aim  times  for 
each  intruder  target  type. 

minutes 

TMDLCF 

The  amount  of  time  the 
intruders  will  be  de¬ 
layed  while  deploying  the 
line  charge  or  fuel  air 
explosive . 

minutes 

TMMV 
TMSWP ( 7 ) 


The  target  travel  time. 

An  array  containing  the 
times  required  to  remove 
or  neutralize  each  mine 
type. 


minutes 

minutes 


lix 
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TMTOFR(130) 

An  array  containing  the 
times  for  events  to 
occur  for  direct  fire, 
indirect  fire,  and  re¬ 
turn  fire. 

minutes 

TOTDEL 

The  sum  of  the  time  re¬ 
quired  to  remove  or 
neutralize  a  mine,  the 
time  the  target  was  de¬ 
layed  due  to  the  removal 
of  a  travel  path  block¬ 
age,  and  the  time  re¬ 
quired  to  deploy  line 
charges  or  fuel  air  ex¬ 
plosives  . 

minutes 

TOTSIM 

The  total  breach  time. 

minutes 

TOT  2 

An  inte'^nal  program  vari¬ 
able. 

none 

TRAVTM 

The  travel  time  to  the 
next  event. 

minutes 

TT 

A  variable  used  as  tempo- 
ary  storage  of  the 
travel  time  to  the  next 
event. 

minutes 

TTDI 

The  time  between  time- 
oriented  events. 

minutes 

TVELPR 

Temporary  storage  for  the 
target  velocity. 

feet 

per 

minute 

TYPRIT 

Temporary  storage  for  the 
target  Y  coordinate. 

feet 

lx 
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DEFINITION 

UNITS 

T1 

An  intermediate  variable 
used  in  determining  the 
target  offset  due  to  di¬ 
version  . 

feet 

T2 

An  intermediate  variable 
used  in  determining  the 
target  offset  due  to  di¬ 
version. 

feet 

T3 

An  intermediate  variable 
used  in  determining  the 
target  offset  due  to  di¬ 
version. 

feet 

V 

V 

An  intermediate  variable 
used  in  obtaining  a 
normal  random  number. 

none 

VERT 

Tv 

The  vertical  dimension 
for  the  intruder  or 
defender  type. 

feet 

XCYCLE(7) 

An  array  containing  the 
total  fuze  cycle  time 
(if  any)  for  each  target. 

seconds 

XD 

The  square  of  the  dis¬ 
tance  in  the  X  direction 
between  the  defender  and 
intruder . 

feet 

squared 

XDIS 

An  intermediate  target/ 
mine  distance  used  in 
determining  the  next 
event. 

feet 

XDMP(10,10) 

^RDMP I  (  j ) 

An  array  containing  the 

X  coordinate  in  the  map 
coordinate  system  of  the 
desired  mean  points  of 
impact  of  each  round 

feet 

LIST  OF 

SYMBOL  OR 
ABBREVIATION 

XFIX 

XFIXl 

XLCF(IOO) 

XLOC 

XMAX 

XMIN 

XODEF(20) 

XORGVP 

XOVPdO) 
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delivered  at  each  indi¬ 
rect  fire  volley  aimpoint. 

^TO  The  target  offset  dis-  feet 

tance  while  diverting 
around  a  damaged  target. 

Temporary  storage  for  feet 

XFIX. 

An  array  containing  the  feet 

X  coordinate  of  the  in¬ 
truder  employing  fuel 
air  explosives  or  line 
charges  as  sweeping  de¬ 
vices  . 

Temporary  storage  for  the  feet 

X  coordinate  of  the 
position  of  the  line 
charge  or  fuel  air  ex¬ 
plosive. 

The  maximum  X  coordinate  feet 

for  mines  retained  for 
the  case. 

The  minimum  X  coordinate  feet 

for  mines  retained  for 
the  case. 

^D(k)  An  array  containing  the  feet 

X  coordinate  of  each 
defender  in  the  map  co¬ 
ordinate  system. 

An  internal  program  vari-  feet 

able. 


^OVAP ( i ) 


An  array  c:>ntaining  the  X 
coordinate  of  the  origin 
of  each  volley  aimpoint. 


Ixii 


feet 
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UNITS 

XR 

An  internal  program  vari¬ 
able  . 

none 

XRDFOOO) 

An  array  containing  the 

X  coordinates  of  the  ends 
of  the  direct  fire  attack 
areas . 

feet 

XRG(52) 

An  array  containing  the 
maximum  value  of  each 
distribution  output  vari¬ 
able  . 

none 

XRN 

The  reciprocal  of  the 
iteration  number. 

none 

XROAD(ll) 

^Ri 

An  array  containing  the 

X  coordinates  of  the 
ends  of  the  travel  path 
segments  in  the  map 
coordinate  system. 

feet 

XRl 

The  X  coordinate  of  the 
starting  point  of  a 
travel  path  segment. 

feet 

XR2 

The  X  coordinate  of  the 
end  point  of  a  travel 
path  segment. 

feet 

XSWATH(50) 

An  array  containing  mine 
pattern  widths  for  uni¬ 
form  distributions  of 
mines  for  each  aimpoint. 

feet 

XT 

The  X  coordinate  of  the 
intruder. 

feet 

XW 

The  X  coordinate  of  the 
volley  aimpoint. 

feet 

Ixiii 
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SYMBOL  OR 
ABBREVIATION 


XWIDTH 


XW2 


XYMS (4) 


YD 


YDIST 


YDIV(IOO) 


YDMP  (10,10) 


EQUIVALENT 
IN  MATH 

model  _ DEFINITION 


The  width  of  the  area 
through  which  the  tar¬ 
gets  are  passing. 

One-half  of  the  width  of 
the  area  through  which 
the  targets  are  passing. 

An  array  containing  the 
X  and  Y  coordinates  of 
an  area  of  a  travel  path 
segment  accessible  to 
direct  fire. 

The  square  of  the  dis¬ 
tance  in  the  Y  direction 
between  the  defender  and 
intruder . 

The  di^f-ance  from  the  Y 
coordinate  of  the  posi¬ 
tion  of  the  line  charge 
or  fuel  air  explosive  to 
the  outer  limit  of  the 
explosive  effects. 

Yqiv  array  containing  the 

Y  coordinates  of  damaged 
targets  which  must  be 
diverted  around. 

YrompKi)  array  containing  the 

Y  coordinate  in  the  map 
coordinate  system  of  the 
desired  mean  points  of 
impact  of  each  round  de¬ 
livered  at  each  indirect 
fire  volley  aimpoint. 


UNITS 


feet 


feet 


feet 


feet 

squared 


feet 


feet 


feet 


Ixiv 
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YFIX 

YLENGTH 

YLENTH 

YL2 

YMAX 

YMIN 

YODEF(20) 

YORGVP 

YOVP (iO) 

YRDFOOO) 


EQUIVALENT 
IN  MATH 
MODEL 


'^D(k) 


''^^vAP  (  i) 


DEFINITION 


The  distance  that  targets 
are  moved  to  reassociate 
with  a  new  lead  target. 

The  length  of  the  area 
through  which  the  targets 
are  passing. 

The  length  of  the  travel 
path  segment. 

One-half  of  the  length  of 
the  area  through  which 
the  targets  are  passing. 

The  maximum  Y  coordinate 
of  the  mines  which 
sympathetically  detonate. 

The  minimum  Y  coordinate 
of  the  mines  which 
sympathetically  detonate. 

An  array  containing  the 
Y  coordinate  of  each 
defender  in  the  map  co¬ 
ordinate  system. 

An  internal  program  vari¬ 
able  . 

An  array  containing  the  Y 
coordinates  in  the  map 
coordinate  system  of  the 
origin  of  each  volley 
aimpoint . 

An  array  containing  the  Y 
coordinate  in  the  map  co¬ 
ordinate  system  of  the 
ends  of  the  direct  fire 
attack  areas. 


Ixv 


UNITS 

feet 

feet 

feet 

feet 

feet 

feet 

feet 

feet 

feet 

feet 
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YROAD(ll)  An  array  containing  the  Y  feet 

coordinates  of  the  ends 
of  the  travel  path  seg¬ 
ments  in  the  map  coordi¬ 
nate  system. 

YRl  The  Y  coordinate  of  the  feet 

starting  point  of  a 
travel  path  segment. 

YR2  The  Y  coordinate  of  the  feet 

end  point  of  a  travel 
path  segment. 

YST  The  Y  coordinate  of  the  feet 

inner  limit  of  the  fuel 
air  explosive  effects. 

YSWATH(50)  An  array  containing  the  feet 

mine  pattern  lengths  for 
uniform  distributions  of 
mines  for  each  aimpoint. 

YT  The  Y  coordinate  of  the  feet 

intruder . 


YW 


The  Y  coordinate  of  the  feet 

volley  aimpoint. 
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SECTION  1 


INTRODUCTION 


This  computer  simulation  model,  referred  to  as  SEMAC, 
provides  the  methodology  and  analytical  techniques  required 
for  evaluating  the  synergistic  effects  of  minefields  and 
covering  fire.  The  program  was  designed  to  allow  mixed 
minefields,  various  armored  vehicle  tactics,  ^md  employment 
of  combinations  of  different  types  of  direct  and  indirect 
fire.  SEMAC  determines,  on  a  time  history  basis,  the  damage 
and  the  breach  times-  for  the  engagement  area  consisting  of 
mines  and  covering  fire.  The  intruder  force  travels  along 
raultisegmented  travel  paths  through  the  engagement  area,  with 
one  of  two  tactics  employed  by  the  formation  of  targets. 

These  tactic  options  are: 

•  The  targets  traverse  the  engagement  area  with  no 
sweeping  and  no  evasive  action  taken. 

•  The  engagement  area  is  swept  by  sel(!Cted  targets 
traversing  the  engagement  area. 

SEMAC  is  an  event-oriented  simulation  model  which  uses 
Monte  Carlo  techniques  to  obtain  measures  of  effectiveness. 
The  minefield  is  defined  by  randomly  applying  aiming  errors 
to  each  sortie  and  ballistic  errors  to  each  mine  in  the 
sortie.  The  aiming  range  and  deflection  errors  are  inde¬ 
pendent  of  each  sortie  of  mines  delivered,  and  the  ballistic 
range  and  deflection  errors  are  independent  of  each  mine  in 
the  pattern.  The  formation  of  targets  proceeds  through  the 
mii'.efield,  and  damage  is  assessed  for  every  encounter  of  a 
mi.no  by  a  target.  A  mine  which  detonates’  is  evaluated 
agj'nst  all  targets.  Inputs  specify  the  locations  of  cover¬ 
ing  fire  weapons,  their  time  of  commencing  fire,  and  other 
.-terns  pertaining  to  weapon  employment,  target  acquisition, 
system  accuracies,  and  return  fire  parameters.  The  effect 
of  the  covering  fire  on  the  targets  attempting  the  minefield 
breach  is  '/aluated  in  time  sequence.  The  simulation  ends 
when  all  targets  have  either  passed  through  the  minefield 
and/or  all  targets  have  been  damaged.  The  minefield  is  re¬ 
defined  using  random  aiming  and  ballistic  errors,  and  another 
iteration  is  evaluated.  At  the  end  of  a  selected  number  of 
iterations,  statistical  output  is  computed  and  presented. 

The  targets  which  are  engaged  in  the  minefield  breach 
attempt  are  capable  of  utilizing  several  tactics  for  mine- 
sweeping.  Visual  detection  of  mines  by  selectou  target 
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elements  is  provided.  In  addition,  methodology  for  the  em¬ 
ployment  of  armored  plows  and  rollers,  explosive  line  charges, 
and  fuel  air  explosives  (FAE)  is  incorporated.  Explosive  line 
charges  and  FAE  mine  clearing  provides  minefield  degradation 
within  a  rectangular  area  around  line  charges  and  within  a 
circular  area  around  FAE. 

The  "in  minefield"  targets  receive  direct  and  indirect 
covering  fire  from  defending  forces  according  to  an  input 
time  schedule,  and  are  capable  of  returning  fire.  The  in¬ 
direct  fire  methodology  is  based  upon  the  development  of  Tri- 
Eervice  approved  methodology  for  the  Joint  Technical  Coordi¬ 
nating  Group  for  Munitions  Effectiveness  (JTCG/ME)  Methodology 
Working  Group.  These  techniques  are  used  to  compute  the 
effectiveness  of  single  or  multiple  releases  of  unguided 
weapons  (inclurling  clustt-r  munitions)  against  various  types 
of  targets.  Up  to  ten  volley  aimpoints  are  permitted  with  up 
to  ten  rounds  fired  per  volley.  The  effectiveness  index  can 
be  expressed  in  the  following  terms: 

•  Mean  area  of  effectiveness  for  fragmentation  (MAEf) 

•  Vulnerable  area  (VAj^) 

•  Mean  area  of  effectiveness  for  blast  (MAE^) 

•  Effective  miss  distance  (EMD) . 

The  direct  covering  fire  methodology  considers  the 
effects  of  terrain  masking  on  target  acquisition  and  line 
of  fire.  The  extent  of  terrain  masking  is  described  by  in¬ 
puts  pertaining  to  location  and  size  of  natural  obstacles. 

A  direct  fire  area  is  a  portion  of  the  travel  path  not  masked 
by  terrain. 

SEMAC  will  simulate -the  passage  of  up  to -100- intruder 
targets  of  up  to  five  different  types  passing  through  an  en¬ 
gagement  area.  The  program  can  consider  up  to  50  aimpoints 
for  mines  and  up  to  seven  different  mine  types.  A  maximum  of 
32,767  mines  can  be  dispensed,  and  up  to  4,998  mines  can  be 
located  within  the  range  of  influence  on  either  side  of  a 
travel  path  segment.  The  width  of  the  range  of  influence  is 
the  maximum  distance  at  which  a  mine  can  detonate  or  be 
detected  by  a  target.  (A  mine  which  is  outside  this  region 
cannot  affect  the  outcome  of  the  simulation.)  The  computer 
program  can  evaluate  the  effectiveness  of  up  to  20  defenders 
of  up  to  five  direct  fire  defender  weapon  types.  Each  of  the 
five  defender  weapon  typos  is  capable  of  direct  covering  fire 
against  the  five  target  types  of  the  intruder  and  each  of  the 
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five  target  types  of  the  intruder  is  capable  of  return  fire 
against  the  target  types  of  the  defender. 

This  volume  contains: 

•  A  detailed  description  of  the  mathematical  model 
which  was  used  as  a  !jasis  in  developing  SEMAC. 

•  A  complete  set  of  flowcharts  depicting  the  logic 
used  in  the  program. 

•  A  complete  FORTRAN  IV  source  listing  of  the 
program. 

•  A  detailed  description  of  the  simulation  coding 
which  is  employed  in  the  program. 

•  Listings  of  the  symbols  and  abbreviations  which  are 
used  in  the  mathematical  model  and  the  computer 
program . 

Detailed  descriptions  of  the  input  variables  required  to 
properly  execute  SEMAC,  instructions  for  placing  the  input 
variables  on  punch  cards  and  for  arranging  the  punch  cards  in 
proper  order,  descriptions  and  definitions  of  the  output 
available  from  SEMAC,  and  a  description  of  a  sample  case  are 
contained  in  Volume  I,  the  User's  Manual,  of  this  report. 


SECTION  II 


MATHEMATICAL  MODEL 


The  mathematical  model  for  SEMAC  is  separated  into  three 
principal  parts,  which  are: 


• 

Computation 

of 

effectiveness 

of 

mines . 

• 

Compu  tat  ion 

of 

effectiveness 

of 

direct  fire 

mun i tions . 

• 

Computati on 

of 

ef  f ecti veness 

of 

indirect  fire 

munitions . 

These  principal  parts  of  the  mathematical  model  are 
discussed  in  detail  in  the  following  paragraphs. 


COMPUTATION  OF  EFFECTIVENESS  OF  MINES 

The  mathematical  model  for  SEMAC  provides  for  up  to  100 
intruders  of  up  to  five  different  types  passing  through  the 
engagement  area.  Up  to  50  aimpoints  and  up  to  seven  differ¬ 
ent  mine  types  can  be  considered.  A  maximum  of  32,767  mines 
can  be  dispensed,  and  up  to  4,998  mines  can  be  located  within 
the  range  of  influence  on  either  side  of  a  travel  path  seg¬ 
ment.  The  width  of  the  range  of  influence  is  the  maximum 
distance  at  which  a  mine  can  detonate  or  be  detected  by  an 
intruder.  (A  mine  which  is  outside  this  region  cannot 
affect  the  outcome  of  the  simulation.) 


Com put a tion  o f  Mine  Locati o ns  in  Map  Coordinate  System 

At  the  start  of  each  iteration,  the  mine  impact  points 
are  computed.  First,  the  mine  locations  for  each  sortie 
and  sortie  aimpoint,  including  aiming  and  ballistic  errors, 
cire  com.puted  using  the  expressions: 
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where  (  j  j  and  are  the  X  and  Y  coordinates  of  the 

mine  with  respect  to  the  nominal  sortie  aimpoint,  ^nd 

^MPT(i)  the  deflection  and  range  components  of  the  mean 

point  of  impact  computed  in  SEMAC  by  one  of  the  five  methods 
shown  in  Table  1,  i  ,  Rn2»  %3»  Rn4  normally  distrib¬ 
uted  random  numbers,  and  are  the  standard  deviations 

in  range  and  deflection  describing  the  distribution  of  the 
aiming  error,  and  Oqj^  and  Ogo  are  the  standard  deviations  in 
range  and  deflection  describing  the  distribution  of  the 
ballistic  error.  In  determining  the  values  of  DMpx{i)  and 
^MPi(i)'  uniformly  distributed  mines  are  bounded  by  the  input 
values  of  Xs  (the  maximum  width  of  the  pattern)  and  Ys  (the 
maximum  length  of  the  pattern) .  Normal  distributions  of  mines 
are  also  determined  using  Xg  and  Yg;  however,  for  this  option, 
the  input  values  of  Xg  and  Yg  are  six  standard  deviations,  and 
Xg  and  Yg  are  divided  by  the  value  6  to  obtain  the  standard 
deviations  in  deflection  and  range  describing  the  pattern. 

To  determine  R*^  ]  ,  R.\i2»  Rn3»  ^^^d  Rn4,  a  uniform  random 
number  (Urn)  is  generatea  using  RANF  (a  Control  Data  Corpora¬ 
tion  library  function),  and  the  following  polynomial  equations 
are  evaluated  to  convert  Urn  to  a  corresponding  random  number 
from  a  normal  distribution. 


V  =  .^p:^ln‘;0.5[1.0  -  (  I  1.0  ■-  2.0(Ukn)  iTl  i'  (3) 


(2.515517  +  0.802853V  +  0  ._0_ip 3 28vj_} _ _ 

(1  +  1.432788V  +  0.189269V^  +  0.0013208Vi) 


wh'M'e  Rn  is  the  normal  t a adorn  number,  and  Urn  is  a  random  num- 
h<-  front  a  uniform  distribution.  The  value  of  Rn  is  posjti'-.' 
if  O.t'l'Rv-I.O  and  negative  if  0<Urn10.5. 

Next  tht?  mine  coordinates  (i.o.,  the  X^  (  >  )  and  y'm  (  j ) 
values]  are  transformed  into  the  map  coordinate  system  usinq 
the  expre.:jsions  (see  Figure  1): 


( i )  ~  ^ A ( n ) 

+  XM(i)COs0  -f  YN(i)SinO 

(5) 

YM(i)  =  YA(n) 

-  XM(i)sint3  +  YM(i)cosO 

(6) 
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TABLE  1.  DETERMINATION  OF  RANGE  AND  DEFLECTION 
COORDINATES  OF  MEAN  POINT  OF  IMPACT 

OPTION  _ ^MP-T  (  I  ) _ _  _ Dmpi  (  i) _ 

0  Read  in  from  input  data  Read  in  from  input  data 

1  Select  from  random  Select  from  random 

normal  distribution  normal  distribution 

2  Select  from  random  Select  from  random 

uniform  distribution  uniform  distribution 

3  Select  from  random  Select  from  random 

normal  disiribution  uniform  distribution 

4  Select  from  random  Select  from  random 

uniform  distribution  normal  distribution 


where  X;,j  ( ^  j  and  YM{i)  the  X  and  Y  coordinates  of  the  ith 

mine  in  the  map  coordinate  system,  Xm ( i )  and  Y^ ( i )  are  as 
described  above,  XA(n)  and  YA(n)  ate  the  X  and  Y  coordinates 
of  the  sortie  airapoint  with  which  the  i^t  mine  is  associ¬ 

ated,  and  0  is  the  azimuth  angle  defining  the  direction  of 
travel  of  the  delivery  aircraft  (measured  clockwise  from  the 
positive  Y  axis) . 

To  evaluate  the  effects  of  weapon  reliability,  a  uniform 
random  number  (Urn)  is  selected  for  each  mine,  and  this  num¬ 
ber  is  compared  to  the  input  value  of  the  probability  that 
the  mine  is  a  dud  (Pdud) •  If  the  inequality: 


Urn^Pdud 


is  satisfied  and  if  Tactic  1  is  being  employed,  the  mine  is 
considered  a  dud  and  is  eliminated  from  further  consideration. 


Transformation  of  Mine  Locations  Into  Travel  Path  Coordinate 
System  and  Initial  Placement  of  Targets 

In  order  to  evaluate  large  numbers  of  mines,  the  target 
formation  traverses  each  input  path  segment  one  at  a  time 
with  the  following  restrictions. 
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•  r-;ach  path  segment  must  be  less  than  6,553  feet 
in  length. 

•  The  maximum  number  of  mines  within  range  of  in¬ 
fluence  of  any  target  for  a  path  segment  is  limited 
to  4,998. 

•  The  maximum  number  of  mines  which  are  permitted  to 
fall  within  the  width  of  the  target  area  rectangle 
(W)  and  the  length  of  the  target  area  rectangle  (L) 
is  32,767. 

•  Only  those  mines  which  are  within  1,638  feet  on 
either  side  of  the  noniinal  centerline  of  the  path 
segment  are  considered.  (Only  those  mines  within 
the  range  of  influence  of  a  target  are  saved.) 

•  For  mines  with  a  timing  cycle,  the  total  of  ON  and 
OFF  time  for  a  single  cycle  must  be  less  than  256 
seconds . 

The  travel  path  coordinate  system  is  defined  with  the 
origin  at  the  path  segment  starting  point?  the  positive  Y 
axis  defines  the  direction  of  travel,  and  the  positive  X  axis 
is  to  the  right.  The  mine  locations  are  transformed  into  the 
{Mth  coordinate  system  using  the  expressions  (see  Figure  2): 

Xmr(L)  l^MM)  -  XkiIcosOr  +  [Ym(j)  -  YRilsinSR  (8) 

'<'MK(i)  “  ”  [XM(i)  -  XK'i!sin0R  +  lYMd)  -  YriIcosOr  (9) 

where  Xmr{i.  )  and  YMR(i)  are  the  X  and  Y  coordinates  of  the  i^^ 
mine  in  the  path  coordinate  system,  Xj/j  ( i )  and  YM(i)  are  as 
described  above,  Xri  and  Yri  are  the  X  and  Y  coordinates  of 
the  path  segment  starting  point  in  the  map  coordinate  system, 
and  0R  is  the  computed  angle  between  the  X  and  Xr  axes. 

After  the  coordinates  of  a  mine  are  computed  as  described 
above,  the  model  determines  if  the  mine  is  within  the  range  of 
influence.  A  mine  is  outside  this  range  of  influence  and  is 
eliminated  from  further  consideration  if  its  distance  to  the 
travel  path  is  so  large  that  both  of  the  following  conditions 
exist . 

•  The  piobability  that  the  sweeping  element  will 
detect  the  mine  is  xero. 


-  ORIGIINiAL 
POINT  (K\l.  Y,i;) 


Transformation  of  Mine  Locations  From  Map 
Svstem  Into  Travel  Path  Coordinate  System 


•  'I'he  probability  that  the  mine  will  detonate  is  zero. 

A  mine  is  also  eliminated  from  further  consideration  for 
the  path  segment  if  its  Ymr  coordinate  is  less  than  zero  or 
greater  than  the  length  of  the  path  segment.  [A  mine  can  con¬ 
ceivably  be  within  the  range  of  influence  and  within  the  path 
segment  length  for  more  than  one  path  segment.  Such  a  mine, 
if  detonated  while  the  targets  are  traversing  one  path  seg¬ 
ment,  cannot  be  detonated  while  the  targets  are  traversing  a 
subsequent  segment.  To  account  for  this  situation,  a  binary 
switch  is  maintained  (one  bit  for  each  mine)  to  ensure  that  a 
detonated  mine  is  not  included  in  a  subsequent  path  segment.] 

For  mines  controlled  by  an  ON/OFt^  timing  cycle,  a  random 
starting  time  for  each  mine  is  computed  using  the  expression: 


i-s  ~  b(^fj(ton  t-off) 


(10) 


where  t^  is  the  random  starting  point  for  the  fuze  timing 
cycle,  Ukm  is  a  uniform  random  number,  ton  is  the  duration  of 
the  active  portion  of  the  fuze  timing  cycle,  and  toff  is  the 
duration  of  the  inactive  portion  of  the  fuze  timing  cycle. 

For  each  mine  on  a  path  segment,  the  mine  information 
described  above  is  paclted  into  a  60-bit  CDC  6600  word  in  the 
following  manner. 


Oyyyyyyyyyyyyyyyysxxxxxxxxxxxxxxiiiiiiiitttttmmmmmmmmrnmmmmmm 


The  meaning  of  each  bit  position  is  described  in  Table  2. 

Since  each'  component  o'f  'tKe  vector  containing  the  packed 
mine  information  looks  like  a  positive  integer,  the  vector 
can  be  sorted  into  ascending  order,  thereby  ordering  the  vec¬ 
tor  by  increasing  mine  Y  coordinate.  The  sorting  technique 
utilized  was  developed  by  Mr.  Richard  Singleton  under  a 
Stanford  Research  Institute  project.  Details  pertaining  to 
this  sorting  technique  can  be  found  in  Algorithm  347  of 
Collected  Algorithms  from  Communications  of  the  Association 
f  or  Comput  ing  M  a  chi  n_e  ry . 

Initial  positions  of  the  targets  are  specified  as  inputs, 
with  the  first  target  input  assuming  a  position  on  the  path 
segment  centerline  and  at  the  path  segment  starting  point 
(i.e.,  the  origin  of  the  path  coordinate  system).  All  other 
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TABLE  2.  BIT  LOCATIONS  FOR  PACKED  EVENT  INFORMATION 
LETTER 

_  BIT  .  CODE  _  _^?‘TCRIPTT0N 

59  0  Always  zero  to  create  a  word  which 

looks  like  a  positive  integer. 

58  through  43  y  Sixteen  bits  containing  the  event  Y 

coordinate  [YMR(i)]  times  10. 

42  s  The  sign  of  the  event  X  coordinate 

i ^MR ( i ) ) • 

41  through  28  x  Fourteen  bits  containing  the  magni¬ 

tude  of  the  event  X  coordinate 
lXMR(i)|  times  10. 

27  through  20  i  Eight  bits  containing  the  mine  ran¬ 

dom  starting  time  (t^)  ,  if  any,  or 
the  direct  fire  area  number. 

19  through  15  t  Five  bits  containing  the  event  type 

(see  NOBTP2  in  the  List  of  Symbols 
and  Abbreviations  -  Simulation  Model) . 

14  through  0  m  Fifteen  bits  containing  the  sequen¬ 

tial  mine  number  or  the  indirect  fire 
volley  aimpoint. 


targets  are  placed  at  positions  relative  to  the  first  as  de¬ 
fined  by  their  input  [i.e.,  X-p  ( j )  and  Y-p(-j;)  locations.  All 
of  the  targets  travel  along  the  path  in  formation;  when  all 
of  the  targets  have  either  completed  traversing  the  first 
path  segment  or  have  been  damaged,  the  undamaged  targets  are 
placed  in  a  similar  manner  at  the  start  of  the  next  path  seg¬ 
ment  (if  any).  The  formation  of  targets  is  maintained  rather 
than  closing  up  any  gaps  left  by  damaged  targets. 


Determination  ol  N c  Event 

A  simplified  method  is  employed  for  determining  the  next 
event  which  will  occur.  The  vector  containing  the  packed 
event  information  has  been  sorted  by  ascending  Y  coordinate 
so  that  the  next  event  can  be  determined  by  incrementing  a 
counter.  If  the  ith  event  is  the  next  one  to  be  encountered 
by  the  jth  target,  the  expression  used  to  determine  the 
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range  distance  that  must  be  traveled  by  the  target  to  reach 
+ he  point  of  closest  approach  to  the  event  lAY(ij)l  is: 


(  i  j  )  1  ^MR(  i)  ■  ( i )  1 


(11) 


where  YtiJ)  is  the  Y  coordinate  of  the  jtH  target  and  YMR(j) 
is  as  defined  above.  The  smallest  AY ( i j )  is  determined  and 
the  time  required  for  the  target  associated  with  the  event  to 
travel  this  distance  is  computed.  If  the  event  target  is  not 
involved  in  a  delay  condition,  the  associated  target/event 
combination  constitutes  the  next  position  oriented  event. 
Before  this  target  is  involved  in  the  next  event,  the  time 
oriented  events  are  considered.  All  time  ordered  events  that 
will  occur  in  less  time  than  the  travel  time  to  the  next 
event  arc  considered  before  the  event  target  is  moved  the 
distance  AY ( i j ) . 


Evaluation  of  Target/Mine  and  Target/Boundary  Interact_ior^s 

At  this  point  in  the  execution  of  an  event ,  the  event 
target  and  the  event  mine  have  the  same  Y  coordinate  (i.e., 
the  target  is  at  its  point  of  closest  approach  to  the  mine) . 
The  lateral  distance  between  the  target  and  the  mine 
[A.X(ij)l  is  computed  using  the  expression: 


AX(ij)  -  X^Rd)  “  X.r(j)  (12) 


where  Xx ( j )  is  the  X  coordinate  of  the  jth  target,  and  the 
other  variables  are  as  defined  above. 

When  some  targets  are  damaged,  subsequent  targets  in  the 
same  column  must  divert  around  the  damaged  target.  If  a  tar¬ 
get  is  within  60  feet  of  a  damaged  target  and  must  divert 
around  the  damaged  target.  Equation  (12)  is  modified  to  re¬ 
flect  the  diversion  geometry  (see  Figure  3).  The  target  off¬ 
set  is  computed  using  the?  expression: 


Xto  “  •^75)''  -  [Yx(j)  -  Y'div]  ^  -  45  (13) 

where  Xxo  is  the  magnitude  of  the  target  offset  while  divert¬ 
ing  around  the  damag3d  target,  Yx(j)  is  as  defined  above. 
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Figure  3.  Geometry  of  Target  Diversion 


7^L'thrLdiu°°oftSrr‘  t*'"  'J^'antity 

i-j)c  Laaaus  or  the  diversion  circle  in  foot-  4-u  ^ 

tiu  Idteral  distance  between  the  target  and  the  mine  (Ax,  1 
-S  computed  usincj  the  expression:  (ij)^ 


/'A  ( j  j  )  -  I  Xmh  (  i  )  -  Xt  (  j  )  -  Xto  I  (14  ) 

defined  above.  If  a  divertina  tar¬ 
get  IS  damaged  by  a  mine  while  traveling  on  the  diversion 
circle  and  the  diverting  target  must  itself  be  diverted 
around,  subsequent  targets  are  diverted  ?„  the  opposrte  dl- 
lectun,  causing  a  change  in  the  sian  of  v  Tf  +i 

Llt''a”d^e^::iir^?^e?trriSt‘’Tr‘^  n 

viHn  linear  interpolation  technique  is  used  to  uro- 

iltll  computation  of  probabilities  of  mine  detLuon 

detonation,  and  target  damage.  The  ex- 
presoion  used  to  perform  the  linear  interpolation  is:' 


(  1  j  )  ~~  f  1* q  4  1 

( Rq+  1  ~  Rq  ) 


Where  P  is  the  interpolated  probability,  AXfn,  is  the  lateral 
distance  between  the  target  and  the  mine  R  and  r  lateral 

lated^s^T"fh^°  tabular  input  of  the  function  being^interpo- 

than  the  value  of  p  Zk  random  number  is  less 

bv  thl  tnrarT  a  d  detected  and  neutralized 

oy  the  target,  and  the  event  is  completed. 
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detected,  the  mode]  next  determines 
whether  the  mine  detonates.  If  the  mine  employs  a  fa™ 

Limiiuj  devLco,  SI-.MAC  dt'tormines  il  the  fuze  is  n-tive  n  i  ii 

^^ccompUsh  of  ^closest  approach, 

io  accomplish  this,  the  number  of  times  that  the  fuze  has 

completed  its  timing  cycle  during  the  simulation  is  deter¬ 
mined  using  the  expression: 


Nt  - 


^on  to f  f 


(truncated  to 

lev'  numbei),  tr  is  the  time  period  used  in  the  simn- 

t  i^the  occurs, 

random  starring  point  for  the  fuze  timing  cycle 

(which  must  be  smaller  than  the  total  fuze  cycle  ?imT  Ld 
ton  and  toff  are  as  defined  above.  ^  -  ->  >  and 

ovcnt'"Lcurr'"thI  time  the 

ent  occurs,  the  following  expression  is  evaluated. 

Tt  =  tr  -  Nt(ton  +  toff)  (I/) 

where  t^;,  Nf  ,  tonr  and  toff  are  as  defined  above  and  i « 
or?t'’i“lerrthan"?hrt“®  “  "1'-'  value' 

Equation  (15)  is  evaluated  utilizing  the  appronriote 
wt  ?““o"ate"(PH°)  the  probabrlity  thL  ?he 

compared  S  thi  Jalue  of  Pa  selected  and 

than  the  value  of  Pdn.lhe^Sine  L  = 

ill  ‘  mine  which  detonates  is  evaluated  aaain-'t 

using  the  expression:  target  (Dmt)  is  determined 


Dmt  -  ^IX„R,i,  -  XT,j,  -  Xto)='  +  -’v.ij,]^  (18) 

SrLl^/'^ouaMo  "te  as  defined  above.  .Subntitutinp  D„m 
AX(i_T),  Equation  (15)  is  evaluated  utilizing  the 
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appropriate  damage  function  to  obtain  the  probability  that  the 
target  is  damaged  (I’d)-  A  uniform  random  number  is  selected 
and  compareci  to  the  value  of  Pd  •  if  the  random  number  is  less 
than  the  value  of  Pd,  the  target  is  considered  damaged. 

SEMAC  permits  targets  to  be  associated  with  a  lead  target 
as  a  group  or  unit  (e.g.,  troops  on  foot  following  a  tank). 

If  a  lead  target  is  damaged,  three  options  are  available  for- 
determining  the  disposition  of  its  associated  targets.  The 
first  choice  is  to  proceed  in  the  original  direction  if 
another  target  of  the  same  type  as  the  damaged  target  is  in 
front  of  the  associated  targets  in  the  column.  If  the  first 
choice  is  not  available,  the  associated  targets  can  wait  for 
a  following  lead  target  iii  the  same  column  to  reach  their 
position  and  fall  in  behind  it.  If  neither  of  the  first  two 
options  is  available,  it  is  assumed  that  the  associated  tar¬ 
gets  will  return  back  the  path  that  they  were  traveling  and 
v.’ill  not  attempt  to  breach  the  minefield  again.  These  targets 
are  assumed  to  be  lost  to  rhe  current  mission  and  are  so  re¬ 
ported,  but  they  are  not  included  in  the  damaged  target  count. 

One  other  type  of  interaction  which  is  included  in  SEMAC 
and  which  results  in  degradation  of  the  minefield  is  termed 
sympathetic  detonations.  Sympathetic  detonations  can  occur 
if  the  disturbance  caused  by  a  detonating  mine  or  exploding 
munition  is  capable  of  detonating  nearby  mines.  If  the 
sympathetic  detonation  options  are  chosen,  the  maximum  range 
at  which  a  detonating  mine  or  exploding  direct  or  indirect 
fire  munition  is  input.  When  a  mine  detonates  or  a  direct  or 
indirect  fire  munition  explodes,  the  mines  within  the  maxi¬ 
mum  distance  in  the  Y  direction  are  identified;  then,  the 
distance  to  each  of  those  mines  is  determined  individually 
using  the  expression: 


I  y  0 
D(ik)  =  ^[^MR(k)  ~  XMK(i)]  +  (^MRlk)  "  YMR(i)]  (19) 

where  D(ik)  is  the  distance  from  the  i^*^  (detonating  mine  or 
exploding  munition)  to  the  k^h  mine,  and  the  and  Y^r  are 
the  mine  coordinates.  If  U(ik)  is  less  than  the  distance  at 
which  the  i*-*^  mine  or  exploding  munition  can  sympathetically 
detonate  the  kth  mine,  the  kv-li  mine  detonates. 


Minesweepinq  Techniques 

The  intruding  forces  may  employ  the  following  types  of 
minesweeping  techniques: 


Visual  sweeping. 

Plows  and  rollers. 
Fuel-air-explosives  (FAE) . 


•  Line  charges. 

Visual  sweeping  of  the  mines  is  accomplished  the  in¬ 
truders  traverse  the  minefield.  As  the  mines  are  detected, 
thp  mines  are  either  removed  or  detonated.  Rollers  ano  plowo 
S:  mo3e!eras"^Sarate  target  types 
In  front  of  another  target.  The  range 

functions  of  detonation  and  damage  are  input  to  tho  compute 
program.  A  nonunity  probability  of  encounter  for  a  ^  = 

Ssed  to  model  the  roller  bouncing  over  a  mine. 
mine,  the  probability  that  the  mine  will  still  function  i 
input.  The  target  type  employing  the  FAE  or  line  charges 
inout  in  addition  to  the  pattern  effects  dimensions.  The 
pattern  produced  by  the  FAE  is  circular  and  is  computed  using 
the  following  expressions: 


Ypc ( i) 

=  Yt(j)  + 

Dp 

(20) 

Ypo  1 1 ) 

=  Ypc(l)+ 

Rp 

(21  ) 

Y  £- 1  (  1 ) 

=  Ypc  (  V )  - 

Rp 

(22.) 

where  Ypc(i) 


of 


the  center  of  the  pattern,  YT(j)  is  the  Y 

coordinate  ^of  the  target,  Dp  is  the 

the  tarqet  where  the  FAE  detonates,  Ypo(i)  ^s  the  turtne.t 
Som  the  target  of  the  FAE  effects,  Rp  is  the  radius 
of  the  FAE  effects,  and  Ypi(i)  is  the 

target  of  the  FAE  effects.  If  a  mine  is  located  within  the 
pattern  of  the  FAE  effects,  a  uniform  random  number  (Upn) 

is  selected,  and  this  number  is  compared  to  ^P^^J^tern 

of  the  probability  of  mine  detonation  within  the  FAL  patter 

(Pop).  If  the  inequality: 
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(23) 


Urn  <  t*DF 


j.s  satisfied,  the  mine  is  eliminated  from  further  considera¬ 
tion  . 


For  line  charges,  the  pattern  is  considered  to  be 
rectangular  and  originates  just  in  front  of  the  intruder 
which  deploys  the  device.  The  line  charge  effects  are  Llc 
in  length  and  Wi,(-  in  width.  If  a  mine  is  located  within  the 
pattern  of  tt.e  line  charge  effects,  a  uniform  random  number 
(Urn)  is  selected  and  compared  to  the  input  value  of  the 
probability  of  mine  detonation  within  the  line  charge  pattern 
(Pdr) .  Inequality  (23)  is  evaluated,  and  if  the  inequality  is 
satisfied,  the  mine  is  eliminated  from  further  consideration. 

The  locations  for  FAE  or  line  charge  deployment  are 
determined  at  the  beginning  of  each  travel  path  segment  and 
it  is  assumed  that  sufficient  devices  are  available  to  sweep 
across  the  minefield.  The  line  charge  effect  is  continuous 
in  that  when  the  effective  length  of  one  line  charge  detona¬ 
tion  IS  reached,  another  line  charge  is  deployed.  This  is 
not  so  for  FAE  sweeping  devices  because  the  area  of  effective¬ 
ness  is  circular  and  they  are  deployed  a  specified  distance 
in  front  of  the  intruding  target.  The  deployment  positions 
along  the  travel  path  segment  are  assigned  the  X  coordinate 
of  the  intruder  which  deploys  the  devices  and  the  information 
is  packed  into  a  computer  word  just  like  the  mine  information, 
except  that  the  variable  N0BTP2  is  set  to  19  for  each  deploy¬ 
ment  position. 


COMPUTATION  OF  EFFECTIVENESS  OF  DIRECT  FIRE  MUNITIONS 

SEMAC  contains  methodology  for  determining  the  effective¬ 
ness  of  direct  fire  munitions  employed  by  the  defending  forces 
and  return  fire  by  the  intruders.  The  program  can  consider  up 
to  20  defenders  of  up  to  five  di fferent  types  firing  into 
portions  of  the  engagement  area  not  protected  by  terrain 
shielding. 


Discussion  of  Direct  Fire  Logic 

For  the  purposes  of  this  discussion,  direct  fire  is  de¬ 
fined  as  surface-to-surface  munition  deployment  when  the 
attacking  element  weapon  system  can  "see"  the  unitary  target 
either  visually  or  with  electronic  aid. 
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SEMAC  models  the  effects  of  terrain  shielding  by  allow¬ 
ing  the  user  to  define  portions  of  the  engagement  area  into 
which  direct  fire  can  be  achieved.  A  defender  is  defined  to 
be  at  some  particular  X,  Y  coordinate  in  the  engagement  area 
and  may  shoot  into  some  or  all  of.. the  direct  fire  areas.  The 
portion  of  the  engagement  area  into  which  a  defender  cannot 
shoot  (and  from  which  the  defender  cannot  receive  return  fire! 
is  considered  to  be  shielded  by  terrain  features. 


Whereas  intruder/mine  encounters  are  position  (or  dis¬ 
tance)  related,  the  logic  for  direct  and  return  fire  is  time 
ordered  once  an  intruder  enters  a  direct  fire  area.  Priority 
lists  defining  the  order  in  which  a  defender  type  will  shoot 
at  the  various  intruder  types  (and  vice  versa)  is  provided 
for  the  case.  In  addition,  the  direct  fire  areas  into  which 
each  defender  can  shoot  (and  receive  return  fire)  are  pro¬ 
vided.  When  an  intruder  of  a  type  on  a  defenders  priority 
list  enters  a  direct  fire  area  into  which  that  defender  can 
shoot,  the  defender  fires  and  the  results  are  evaluated. 

That  defender  cannot  fire  again  until  the  time  to  reload  and 
aim  has  elapsed.  Although  the  defender  was  prepared  to  fire 
into  one  of  the  direct  fire  areas  as  soon  as  an  intruder  on 
the  priority  list  was  observed,  the  intruder  may  not  immedi¬ 
ately  be  prepared  to  return  fire.  In  addition,  the  intrud,£u 
may  require  some  time  to  find  the  defender  in  order  to  return 
the  fire.  This  situation  is  modeled  in  SEMAC  by  requiring 
that  an  intruder  (by  type)  observe  a  specified  number  of 
rounds  before  beginning  return  fire. 


SEMAC  handles  the  combination  of  distance  related  and 
time  ordered  events  in  the  following  manner.  Subroutine 
LOOPS  determines  what  th^^  next  distance  related  event  i.s  tc 
bo.  This  can  Ido  an  intruder  encountering  a  mine,  a  travel 
'ifn  segment  boundary,  a  line  charge  or  fuel  air  explosive 
h[  I  '•■’lent  location,  a  direct  fire  area  entrance  or  exit 
b(junaary,  or  the  point  at  which  the  first  volley  is  fired  at 
an  indirect  f  t '"o  volley  aimpoint.  Before  the  distance  re¬ 
lated  event  ^alces  place,  the  possible  time  ordered  events 
are  cliecked  t  )  determine  if  one  or  rriore  should  occur  fiist. 
The  possii. ■'  ’  tinie  ordered  events  are  direct  fire  shots, 
return  fire  shots,  or  the  delivery  of  the  second  or  subse¬ 
quent  volley  at  an  indirect  fire  volley  aimpoint.  II  one  or 
more  time  ordered  events  should  occur  before  the  intruders 
get  to  the  distance  related  event,  the  intruders  are  moved 
to  the  location  at  which  each  time  ordered  event  is  to  take 
place,  and  the  event  results  are  evaluated.  Finally,  when 
all  of  the  required  time  ordered  events  have  occurred,  the 
intruders  are  moved  the  remaining  distance  and  the  event 
determined  by  Subroutine  LOOPS  is  evaluated  This  logic  is 
ncluded  in  Subroutine  CKEl'TM. 
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Transf ormation  of  Direct  re  Area  Boundaries  Into  Travel 
P^t h  Coor dinate  System 

The  entrance  and  exi t  boundary  coordinates  of  the  direct 
fire  areas  are  input  in  the  map  coordinate  system  on,  or  ad¬ 
jacent  to,  the  appropriate  travel  path  segment.  The  Y  coordi¬ 
nate  of  the  direct  fire  area  entrance  or  exit  boundary  [YDR(i)] 
in  the  travel  path  coordinate  system  is  computed  by  the  ex¬ 
press  j  on : 


''^DR(i)  “  ~  Xj^|]sinOp  f  Yfj2,]cos6[^  (24) 

v'liere  and  Yi)(i)  are  the  X  and  Y  coordinates  of  the  i^'^ 

entrance  or  exit  boundary  in  the  map  coordinate  system,  Xri 
and  Yri  are  the  X  and  Y  coordinates  of  the  travel  path  seg¬ 
ment  starting  point  in  the  map  coordinate  system,  and  Or  is 
the  computed  angle  between  the  X  and  Xr  axes  (see  Figure  2). 
The  transformed  X  coordinate  is  not  required. 

The  transformed  direct  fire  area  entrance  and  exit 
boundaries  are  packed  into  a  computer  word  just. like  the  mine 
information,  except  that  the  variable  N0BTP2  is  set  to  17  for 
entrance  boundaries  and  18  for  exit  boundaries. 


^ irect  Fire  E f fectiveness  Computation s 

When,  during  the  evaluation  oi  time  ordered  events,  a 
defender  is  to  fire  on  an  intruder  or  vice  versa,  Subroutine 
DIRFIR  is  called  to  perform  the  computations.  Two  types  of 
effectiveness  indices  are  permitted,  which  are: 

•  Mean  area  of  effectiveness  for  fragmentation 
(MAEf)  in  the  ground  plane  in  square  feet. 

•  Probability  of  damage  given  a  hit  (Pro) • 

When  MAEf  is  specified,  it  is  assumed  that  the  round  will 
arrive  with  a  nonzero  impact  angle,  such  that  the  round  will 
impact  on  the  target  or  near  the  target  on  the  ground.  The 
P(]D  option  can  be  used  to  model  the  situation  where  the 
weapon  may  go  past  the  target  and  detonate  harmlessly  some 
distance  away. 

If  the  effectiveness  index  type  is  MAEf,  the  weapon 
length- to-wi dth  ratio  (a)  is  computed  using  the  expression; 


a 


1  -0.8 [cos  (1)1 


(20) 


where  I  is  the  impact  angle.  The  effective  target  length 
(liE'r)  3nd  the  effective  target  width  (We^)  are  computed  using 
the  expressions: 


^ET 


=  2^(MAEf) (a) 


(26) 


Wet 


"ET 


(27) 


The  range  single  shot  probability  of  hit  (RSSP)  and  the  de¬ 
flection  single  shot  probability  of  hit  (DSSP)  are  computed 
by  the  expressions: 


bp'T 

RSSP  =  - -  -  -  ■  . . -  (7.8) 

^7.6  (REP)  2  +  (Lj.^)  2 

Wp  T 

DSSP  =  -- — . -  -id -  (29) 

\17 .6  (DEP)  ''  T  (Wet)  ^ 


where  REP  and  DEP  are  the  range  error  probable  and  the  de¬ 
flection  error  probable  in  the  ground  plane.  Finally,  the 
single  shot  probability  of  damage  (SSPp)  is  computed  ly  thi 
expi  ;ssion : 


SSPd  =  RSSP (DSSP) (R) 


(30) 


where  R  is  tho  reliability  of  the  round. 

If  the  effectiveness  index  is  in  terms  of  Phd*  the  circu¬ 
lar  error  probable  in  the  normal  plane  (CEP)  can  be  input  ir. 
feet  or  mils.  When  CEP  is  in  mils,  it  is  converted  to  feet 
by  the  expression; 


:ep  = 


CEP 


mils 
1000 


u 


[XT(j)  -  XD(k)]^  +  fYT(j)  -  YD(k)  ] 


(31) 


where  X-j- ( j  j  and  Yrp(j)  are  the  coordinates  of  the  intruder,  and 
Xu{k)  and  Yo(k)  are  the  coordinates  of  the  defender.  The  tar¬ 
get,  whether  intruder  or  defender,  is  attacked  with  considera¬ 
tion  being  given  to  its  oresented  dimensions  in  the  vertical 
and  horizontal  directions.  The  vertical  dimension  is  target 
height,  whereas  the  horizontal  dimension  is  either  twice  the 
target  radius  (for  circular  targets)  or  the  average  of  target 
Length  and  width  (for  rectangular  targets).  Intermediate 
factors  a]  and  bj^  are  com[)uted  by  the  expressions: 


ai 


_ _ 

1.7 (CEP) 


(32) 


,  Tv 

^  1.7  (CEP) 


(33) 


where  Tn  and  Tv  are  the  target  horizontal  and  vertical  dimen¬ 
sion,  respectively. 


The  single  shot  probability  of  damage  is  then  computed 
by  the  expression: 


(34) 


where  the  integrals  represent  the  cumulative  normal  distribu¬ 
tion  function,  and  the  other  variables  are  defined  above. 

The  SSPn  value  is  then  compared  to  a  random  number  from  a 
uniform  distribution  (Urn)  and  if  the  inequality: 


Urn<SSPd  (35) 


is  satisfied,  the  target  is  damaged  and  is  removed  from  further 
consideration. 
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COMPUTATION  OF  EFFECTIVENESS  OF  INDIRECT  FIRE  MUNITIONS 


The  indirect  attack  munition  effectiveness  methodoloqy  is 
derived  from  methodology  accepted  by  the  Joint  Technical 
Coordinating  Group  for  Munitions  Effectiveness  (JTCG/ME)  an  i 
published  in  the  Joint  Munitions  Effectiveness  Manual,  Air- 
to-Surface  (JMEM/AS)  Basic  Manual.  The  methodology  can  assess 
weapon  effectiveness  against  unitary  targets.  The  effective¬ 
ness  index  can  be  in  terms  of  mean  area  of  effectiveness  for 
fragmentation  in  the  ground  plane  (MAEf ) ,  vulnerable  area  in 
the  normal  plane  (VAm) ,  mean  area  of  effectiveness  for  blast 
in  the  ground  plane  (MAEj^)  ,  or,  for  effective  miss  distance  in 
the  ground  plane  (EMD) .  The  delivery  accuracy  is  input  as 
range  error  probable  (REP)  and  deflection  error  probable  (DCP) 
in  the  ground  plane. 

The  methodology  assumes  that  the  indirect  fire  weapons 
are  directed  by  a  forward  observer  who  provides  an  estimated 
time  of  arrival  (ETA)  for  the  lead  target  at  a  predetermined 
location  in  the  minefield.  When  this  point  is  reached,  the 
weapons  each  fire  a  specified  number  of  volleys,  with  a 
specified  delay  between  volleys  for  reloading.  The  first 
volley  arrives  when  the  lead  target  is  at  the  point  of  closest 
approach  to  the  origin  of  the  volley  pattern  coordinate  sys¬ 
tem,  thus  providing  the  user  a  degree  of  flexibility  regard¬ 
ing  the  volley  pattern  coverage  of  the  target  formation  for 
the  first  volley. 


Transformation  of  Indirect  Fire  Volley  Aimpoint  Locations 
Into  Travel  Path  Coordinate  System 

At  the  beginning  of  each  travel  path  segment,  the  in¬ 
direct  fire  volley  aimpoint  locations  along  the  travel  patl. 
segment  are  computed.  First,  the  specified  origins  of  the 
volley  aimpoint  coordinate  systems  are  transformed  into  the 
travel  path  coordinate  system  using  the  expressions: 


X 


VAP  {  1  ) 


^^VAr’(  i.  )  ~  Xp  j^lcOSnj:j  +  f  YO 


VAP  (  j  ) 


K  L 


sin'ip  {'it: 


^VAP(i)  ”  f'^^VAP(i)  ~  1  sinfi  -  Y^jjeos' 


:37) 


where  XvAr(i)  ^>^<3  YvAP(i)  ^re  the  X  and  Y  coordinates  of  the 
ith  volley  aimpoint  origin  in  the  path  coordinate  system, 
^^VAP(i)  ^nd  YOvAP(i)  are  the  X  and  Y  coordinates  of  the  ith 
volley  aimpoint  origin  in  the  map  coordinate  system,  Xr] 
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and  Yj(i  are  the  X  and  Y  coordinates  of  the  path  segment  start¬ 
ing  point  in  the  map  coordinate  system,  and  0r  is  the  computed 
angle  between  the  X  and  X^  axes  (see  Figure  2) . 

After  the  coordinates  of  the  volley  aimpoint  origins  are 
computed  as  described  above,  the  model  determines  if  the  aim- 
point  is  within  the  range  of  target  travel  for  ^.his  path  seg¬ 
ment.  An  aimpoint  is  el  iminated  if  its  Y^;;^p  ( j  )  coordinate  is 
less  than  zero  or  greater  than  the  length  of  the  path  segment, 
or  if  its  XvAP(i)  coordinate  is  not  within  1,638  feet  on 
cither  side  of  the  nominal  centerline  of  the  path  segment. 

For  each  volley  aimpoint,  the  X  and  Y  coordinates,  the 
volley  aimpoint  number  and  the  intruder  leading  the  column  of 
intruding  targets  that  initiates  the  indirect  fire  at  this 
aimpoint  is  packed  into  a  60-bit  CDC  6600  word.  The  variable 
NOBTP2  is  set  to  16  for  indirect  fire  volley  aimpoint  origins. 

The  first  volley  at  each  aimpoint  is  timed  to  arrive  when 
the  lead  target  is  at  the  point  of  closest  approach  to  the 
origin  of  the  volley  pattern.  Subsequent  volleys  will  arrive 
at  the  aimpoint  based  on  the  amount  of  rime  required  for  the 
indirect  fire  weapons  to  reload. 

The  X  and  Y  coordinates  of  the  desired  mean  points  of 
impact  for  each  round  in  the  volley  are  input  with  respect  to 
the  origin  of  the  volley  pattern.  The  expressions: 


>iRDMPi{j)  =  XOvAP(i)  +  ^RDPI  (  j  )  cosOf  (i  )  +  Yrdp  I  (  j  )  s  inO  p  (1  )  (38) 

'^'RnMPI(j)  =  ''^OvAP(i)  '''rDPI  (  j  )  (  i  )  -  ^RDP I  (  j  )  ^  F  (  i  ) 

transform  the  desired  mean  points  of  impact  for  each  round  in 
the  volley,  X^oMpi^i)  and  yRDMPi(i)f  into  the  map  coordinate 
system,  where  XOvAP(i)  YOvAP(i)  ^re  as  described  above, 

^RDPi(j)  and  YRDPi(j)  arc  the  X  and  Y  coordinates  of  the  de¬ 
sired  points  of  impact  with  respect  to  the  origin  of  the  volley 

pattern  and  Op(i)  is  the  direction  of  attack  for  the  indirect 
fire  volley  aimpoint,  measured  clockwise  from  the  positive  Y 
axis  in  the  map  coordinate  system. 

The  desired  points  of  impact  fcr  each  round  in  the  volley 
pattern  are  transformed  into  the  travel  path  system  by  the  ex¬ 
pressions  : 
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RI ( j )  -  (^RDMPl ( j ) 

-  Xri]cOS0r  t 

IYrdmpi { i ) 

-  YRilsinO; 

(40) 

Rj ( j )  ~  [Prompt ( j ) 

-  Xpj^lsinOp.  + 

('^RPMPI  (  j  ) 

-  Yp^jeosOp 

(41) 

where  XROMPi(j).  YRDMPi{j)»  Xri ,  Yri,  0r  are  as  described 
above,  and  >Ri(j)  and  YRi(j)  are  the  transformed  X  and  Y  co¬ 
ordinates  of  the  desired  points  of  impacts  for  each  round  in 
the  volley  pattern. 


Indirect  Fire  Effectiveness  Computations 

Each  indirect  fire  volley  is  composed  of  one  or  more 
rounds  detonating  in  the  vicinity  of  the  targets  at  approxi¬ 
mately  the  same  time.  The  cumulative  effects  of  the  rounds 
are  determined  for  each  target  individually  by  the  SEMAC 
methodology.  Considering  the  ith  round  and  the  jtb  target, 
the  components  of  offset,  Rq  and  D^,  are  computed  by  the  ex¬ 
pressions  : 


Rq  -  |[XRi(i)  -  Xt ( J ) ) sinOpR  +  [YRI(i)  “  Yt ( j ) ] cosO fr  i  (42) 

=  i  “  l^RI  (  i  )  “  ( j )  1  cosSpR  +  [YRi(i)  -  Y-p(j)lsin0pRl(43) 

where  Rq  is  the  target/round  distance  in  the  range  direction. 
Do  is  the  target/round  distance  in  the  deflection  direction, 
^Ri(i)  snd  YR;r(i)  are  the  X  and  Y  coordinates  of  the  desired 
mean  point  of  impact  for  the  round,  XT(j)  and  YT’(j)  are  the 
ai.d  Y  coordinates  of  the  target,  and  Orr  is  the  direction  of 
attach  for  the  volley  measured  in  the  travel  path  coordinate 
system . 

It  the  round  is  an  improved  conventional  munition  (ICM), 
the  pai  f-r  rn  length  (I.p)  and  width  (Wp)  are  computed  by  the 
expression : 


Lp  —  Wp  —  Vn  (Kp)  (44) 


where  Rp  is  the  radius  of  the  ICM  pattern,  and  the  probability 
of  damage  given  that  the  target  is  in  the  pattern  (Phd)  ^ 
computed  by  the  expression: 
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P|in  =  1  -  e 


Ns (Rs) (MAEf) 
L^TWrO 


where  Ns  ir>  the  number  of  submunitions  and  Rs  is  the  reliabil¬ 
ity  of  the  submunition.  The  effective  target  length  (Let)  is 
sot  to  the  value  of  Lp ,  iind  the  effective  target  width 
is  set  to  the  value  of  Wp. 

If  the  effectiveness  index  type  is  MAEf,  and  the  round  is 
high  explosive  (HE) ,  the  weapon  lengt h- to-width  ratio  (a)  is 
computed  using  the  expression: 


a  =  1  =  0 . 8 [ cos  (1)1 


where  I  is  the  weapon  impact  angle.  '^he  effective  target 
length  (L(.;'i’)  and  the  effective  target  widtli  (W^x)  are  computed 
using  t)\e  expressions: 


Lvt  =  2 


(MAEf) (a) 


The  range  single  shot  probability  of  hit  (RSSP)  and  the  deflec¬ 
tion  single  shot  probability  of  hit  (DSSP)  are  computed  by  the 
expressions : 


-  4(Ro)2  _ 

RSSP  =  . . .  — - - -  e  17. 6  (REP)  2  +  (Let) 

V/17.6  (REP)  2  +  2 


DSSP  =  - 


Y^i7.6(DEP)  2  +  (Wet)  2 


-  4 (Dp) 2 _ 

e  17.6(DEP)2  +  (Wet) 2  (50) 


where  REP  and  DEP  are  the  range  error  probable  and  the  deflec¬ 
tion  error  probable  in  the  ground  plane,  respectively,  and  all 
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Diiity  of  damage  (SSP^)  is  then  calculated  by  the  expression 

SSPq  =  RSSP(DSSP)  (R)  (p„j^)  (, 

where  R  is  the  reliability  of  the  round. 

If  the  effectiveness  index  type  is  MAP.  pho  r 

Let  and  Wi,t  are  computed  by  the  expression/^'  ""  ° 


Let  -  Wpj-]. 


T  =  V^MAEb 


and  for  VA^  the  values  are  computed  using  the  expressions: 


Let  - 

sin  (I) 

^ET  V  (5 

f  V effectiveness  index  is  in  terms  of  EMD  and  the 

ar."co:;;::tod 

LpT  =  L,j,  +  2  (EMD)  ;  - 


=  w„  +  2  (EMD) 


target  length  and  W  is  the  target  width  jf 
=  the  values  are  comp, . ted Lsrug  thi  oi- 


pres Sion 


Lp'i  -  W 


ET  =  V^-n  (R-P  +  EMD) 


.'tv. 

,'.-  r if  114''* C...  Jit 


where  is  the  target  radius.  If  target  height  is  being  con¬ 
sidered,  the  shadow  length  (Lsh)  is  computed  using  the  ex¬ 
pression  : 


bSH 


Ht 

tan ( I ) 


(58) 


where  is  the  target  height.  If  the  shadow  length  is  greater 
than  the  effective  miss  distance,  the  value  of  Let  is  recom¬ 
puted  using  the  expression: 


1. 


ET 


[Lt  -t  2  (EMD)  ]  (Wet)  +  Wt(L.SH  -  EMD) 
Wet 


(59) 


for  rectangular  targets,  or: 


Tr_(%_+  EMD)  2  +  2  (Rt)  (Lsh  -  EMD) 
vT!’(Rt  +  EMD) 


(60) 


for  circular  targets  where  all  variables  are  defined  above. 

Next,  four  intermediate  variables  are  computed  by  the  ex¬ 
pressions  : 


Let  +  2 (Ro) 
2.96 (REP) 


(61) 


1  Eet  ~  2  (  Rq)  1 

2.96  (REP) 


(62) 


Wet  2  (Rq) 
2.96(DEP)  ' 


(63) 


I  Wet  ~  2  (Rq)  I 
2.96 (DEP) 
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'I'lii'  I  .  11)1 1  r  M  I  I ii I  1 1 '  h( ) (  |  >  i'( )1  )itl.i  i  I  i  I  y  <  >  I  li  i  1:  ( I'll  I: !  I ’ )  ,  iix  1  I  hr  i  Ir- 
flection  single  shot  probability  of  hit  (DSSP)  are  computed 
by  the  expressions; 


^1  y2 


RSSP  =  -i-  e  ^  dx  +  f 


^ET  ~  2  (  R(^  ) 


],-s/ 


^2  y2 

r  A 


e  dx 


/A  ^  /• 

e  ^  dx  +  r.,  J  —  / 

Wet  J 

0  0 


X2 


e  dx 


and,  finally,  the  single  shot  probability  of  damage  (SSPq)  is 
computed  by  the  expression: 


SSP,3  =  RSSP  (DSSP)  (R)  (Phd) 


The  cumulative  probability  of  damage  (Pq)  for  the  N 
rounds  in  the  volley  is  computed  by  the  expression: 


Prj  =  1  -  n  (1  -  SSPoi) 
i=l 


The  value  of  Pq  is  compared  to  a  random  number  from  a  uniform 
distribution  (Up.^)  and  if  the  inequality: 


Urn'^Pd 


is  satisfied,  the  target  is  damaged  and  is  removed  from  further 
oonsiderat  tor . 


SECTION  III 


ELOWCHARTS 


This  section  contains  flowcharts  which  depict  the  logical 
structure  of  the  main  program  and  its  25  subroutines.  All 
flowcharts  are  based  upon  the  logical  intent  of  this  model 
rather  than  on  displaying  the  methods  used  to  code  the  specific 
routines.  Program  SEMAC  (Figure  4)  controls  the  program  by 
calling  the  various  processing  subroutines.  Subroutine  READIN 
(Figure  5)  reads  the  data  cards  and  performs  initializations 
and  computations  which  are  independent  of  the  iteration.  Sub¬ 
routine  SETUP  (Figure  6)  sets  up  data  for  each  Monte  Carlo 
iteration  and  determines  mine  locations,  and  Subroutine  ROAD 
(Figure  7)  rotates  the  mines,  indirect  fire  volley  aimpoints, 
and  defender  positions  into  the  travel  path  coordinate  system 
and  places  the  targets  at  the  beginning  of  the  travel  path  seg¬ 
ment.  Subroutine  BOOM  (Figure  8)  maintains  the  detonation  flag 
bits  for  each  mine,  and  Subroutine  SORT  (Figure  9)  performs  a 
Singleton  sort  on  the  event  information  array.  Subroutine 
LOOPS  (Figure  10)  determines  the  next  event,  and  Subroutine 
EVENTC  (Figure  11)  executes  any  event  involving  an  intruder  and 
a  travel  path  segment  boundary.  Subroutine  DIVSET  (Figure  12) 
s  called  to  record  the  location  of  an  intruder  which  must  be 
diverted  around,  and  Subroutine  DIVCHK  (Figure  13)  determines 
the  offset  distance  if  an  intruder  is  diverting  around  another 
intruder.  Subroutine  UNIT  (Figure  14)  provides  ^or  the  unit 
i.iovement  of  intruders  which  are  associated  with  another  intruder 
as  a  group.  Subroutine  TGTMIN  (Figure  15)  determines  the  re¬ 
sults  of  an  encounter  between  an  intruder  and  a  mine,  and  Sub¬ 
routine  SYMDET  (Figure  16)-  evaluates  sympathetic  detonations. 
Subroutine  PRINTO  (Figure  17)  prints  the  optional  output.  Sub¬ 
routine  PRTNTR  (Figure  18)  fjrints  the  results  for  each  iteration, 
and  Subroutine  DISTR  (Figure  19)  computes  and  prints  distribu¬ 
tion  output.  Subroutine  TABINT  (Figure  20)  performs  standard 
linear  interpolations  of  the  tabular  probability  data,  and 
Subroutine  RNORM  (Figure  21)  selects  a  random  number  from  a 
normal  distribution.  Subroutines  IPACK  (Figure  22)  and  UNPACK 
(Figure  23)  pack  and  unpack  data  which  describes  the  mines, 
travel  path  segment  boundaries,  and  indirect  fire  volley  aim- 
points.  Subroutine  NDFIRE  (Figure  24)  evaluates  the  indirect 
fire  munitions  employed  against  the  intruders  while  Subroutine 
DIRFIR  (Figure  25)  determines  the  results  of  the  direct  fire 
munitions  employed  as  direct  fire  and  return  fire.  Subroutine 
CKEVTM  (Figure  26)  determines  the  time  related  events,  if  any, 
to  occur  and  seauences  the  events  in  the  proper  order.  Sub¬ 
routine  STINT  (Figure  27)  maintains  the  flag  bits  for  each 
intruder  as  they  enter  and  leave  direct  fire  areas.  Sub¬ 
routine  EXPSWP  (Figure  28)  evaluates  the  effects  of  line 


explosives  aqainst  the  mines  within  the 
mofrio  Finally,  Subroutine  TGTMOV  (Figure  29) 

mcwes  all  active  intruders  the  event  distance  and  time  and 

djusts  the  assessed  delays  for  all  time  related  events  that 
.nay  occur , 
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SEMAC 

PROORAH  SEM*CI0UTPUT-ie9,  INPUT.  T*PC5*tNPUI.  TAPE  6-OUTPUT. 
•TAPE1-5I3,TAPE2-513,TA PE N-iea,  TAPE  7-5(31 

MINEFIELD  SIMULATION  MODEL  MITH  COVERINC  FIRE  -  SCHAC 

COMMON  ACEP'S.ai .ADEPIgOI ,ACI 15. 5, Ml .Al 1201 .AIMPTX(50) .AIMPTYISOI 
“ALNOLC .ANGIMPf 10) .ARELIS.ai .AREPiaO) .AUIDLC.AYYVPI 10)  OIFAE 

•OEFHT(5).DEFLI51.DEFRAOI5l.D£rHI51.DErx(20).DErri?0).OELATMil00). 

•DEPI  I  01  .OFTFAE  .DIRATKI  10)  .OIRDISI  100)  ,DMPI  IXI  10.  101  ,DMPI  1Y(  10.  101 
•DUDPRB(7) .D30EL .£ I (5.5.21 , 10. lOISOP. iOP(20. 15. *) . lEND. 

•  I  IS.  IMINE  ,  INOFA.  (NT1MC(7)  .  108(5000)  .  IPO.  IPRINT.  IPNK(71  .  IRTFIR. 

■  (RUNS.  (SAVE.  ISflL  .  ISVIFA(la)  .  ISVLST.  ISYMPISl  .  ISYP.IT,  ITCROP. 

•  ITGTPR(5.51  .  IVAP,  IVEL  .  IHORO.  IMTOCriBO)  .IMTVAPI  10) 

COMMON  UMARK 1  . JSEL OS ( 7  I  . KABOOM ( 5H7 )  . KOF T TN I  I  00 1  . XNRS  K0UNTI7) 
•KTSAVllOOl.KI.LCFOPT.LCFTT  .L OF  OPR (5. 5)  .LCrTIN.MA0IV.NirBT(7).' 
•MODE.MTFA160I .MUSH. NAP. NCTAHI 1001 .NO. NDCFEA ( 18.201 , NOF . NDF A . 
•NDFAA.NDFDAMIS) .NOFUD.NOFUT.NOVT.NOTAUIIOOI.NOTAMT.NOTAWIIIOOI 

•NIDBT (51 .NITBT 15) .NKILL(5) .NKILL0(51 .NKILLI (5) .NKILLT .NHOCT ( 7 1 [ 
•NMIN(71  ,NMSWPr(71  .NMT.NOB.NOBEVT. NOB TPS .NO  I  T.NOSTAT.NBAOIS)  . 
•NRADFD(20) .NRADFI ( 100) .NRAl (5) .NRBA.NRrBDTIS) .NRFBITIS) . 

'NRFlRDI  1001  .NRS.NSPLFT  .NSriCK(501  . NSUBI 5  I  .NTCOLI  100)  .NTOO. NTOTP. 

•NTOrYPllQOI.NTLClF(IOI.NTLOST.NTrTCS(5).NTTTMD(5).NTTTBP(5I.NVAP. 

•NVFAEA( 101 .NVLIOFI 101 .NHEPV( 10) .OCX.OBY.OBYPBI.PATRAOIB) . POLCF 
COMMON  PHD(5.5I .PPEAF(7I .PRaiTY.PROTNO(5.7l .PRKL0IS.7I . 

•PROaiL (BHO) ,PRSHOO(5.7) .RAOFAE .RANGPRIBNO) .RELRNDI5I ,RCLSUB(SI . 
•REP( 101 .RN.ROIDMPXI 10. 101 .ROTDNPY( 10. 101 .R$PIB) .S( 100) .tCCONI7) . 
•SIGAD1501 .SiGARI50) .SIOBO(50) .SICBRI50) .STATAL(a.52) .SHPDCLI 100) . 
•SYHDUF  15.71  .SYMOIF  (5,7)  .SYM0IS(7.7)  .SYMMAXI  1)  .TARHT(B)  .TARLIB)  . 
•TARRA0(51 .TARH(51 .TOBIFVI IO).TOTOEL( 100) .TOTOVL .TGTSPD. 

"TGTVELI 100) . T0TVL2, TGTVSV.IOTXOL( 100) .IOTYNM( 100) .TOTYOLI 100) . 
•TGTYSV. THETA, THRSIG(6.5) ,IIMEMV( 100) .TM8R0IS) .TMBRI 181 .TMDLCF. 
•TMSHP(7) .TMTOFRI 1301 .T0TS1M.TRAVTM.XCYCLC(7I .XOMP( 10.10) .XFIX 
•XMAX,XMIN,X0DEFI20).X0VP(I0). 

•XRDFOl  30)  .XROAD(  I  I  1  .XSUATH(B01  .XUIOTH,YOIV(  100)  .YDMP(  10.  10)  . 
•YLENOTH.YODEFISOi  ,Y0VP(  10)  .YR0F0I30)  .YR0AD(  I  1  I  .YSHATH150) 

KREAO  -  0 

CALL  REAOIN  IKREADI 
CALL  SETUP 
CALL  ROAO 

CALL  SORT  (  I  08 , NOB  I 
IF(LEFTIN,EQ.0I  go  TO  160 
CALL  LOOPS 

TOTVSV-TGT  VEL  (  I  SAVE  I 
I PO- I H 
1 SYP ■ 0 

XT  -  KTSAV I  I  SAVE  I 
I  WORD  ■  I  OB ( K  T I 
CALL  UNPACK 
OBYPRT -OBY 
CALL  CKEVTM 

1 F ( T GT YNW (  1  SAVE  1  . OT .  99390  .  I  GO  TO  110 
IFdOTVSV.OT.O.OllOO  TO  50 
KTSaV( 1SVLSTI-KTSAV( ISVLSTI-I 
GO  TO  30 

GO  TO  (72,72.72,72.72.72,72.75.72.72.72.72.72.72.72. 
•80.110.100,771  N0BTP2 
CALL  TGTMIN 

1 F ( NGTAHT . GE . I , AND . I SYP , EQ . 2 )  CALL  UNIT 
GO  TO  110 
CALL  EVENTC 
GOTO  110 

I F (  TO T XOL  (  1 S A VE )  . NE  .  OBX  . OR . N T OT YP (  I SA VE )  . NE  .  LCF T T  ) CO  TO  150 
CALL  EXPSWP 
GO  TO  110 

I F  (  I  T  .  NE  .  NC T AH  1  1  S A  VC  I  I  GO  TO  150 

1  VAP-  1 M I NE 

CALL  NOFIRE 

CALL  BOOM!  lOET  .  I  1 

I  NDF  A-  I 

I  OB ( KT  I  -  -  I 


Figure  30.  SEMAC  Source  Listing 
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NVL  tort  I  vaPJ^NVL  IDTi  IVAP)-I 
TMTorwt iVAp*i?o)-roeiFV( ivap) 

00  TO  110 

iOO  CALL  STlNT(lSVirA.ISAVE:,ir.lBIT.KDriTN.?> 
i F ( KDT T T N U 5A VE » . 0 T . 0 t  00  TO  lOS 
NRf  I  ROM  SAVE  )  -0 
T  MT  or  R (  I SA VE  ) -9990  - 
102  J A  A  «  0 

00  I  05  J<  I  .  50 
irMSVIFA!JiM03.10fp 
1  03  JAA- J 
105  CONT  t  NU£ 

iriJAA.LT.n  00  TO  109 
NOF  A -MOD ( JAA .15  1 
1 F ( NOr  A . L  T  .  1) NOF A • 1 5 
00  TO  MO 
! 09  NOFa-0 

I  10  IFINOBEVT  .GT.O.ANO.  IRONS. EO.  IPRINTi 
*  CALL  PR  I NTO 
NOeE  VT  -  I  ABS I NOBE  VT  1 
IF( INOFAI 130.150 
I  30  JAA>U 

00  mo  l-l.NVAP 
I  riNVLioriiMmo. 140,135 
!  35  JAA-  1 
140  CONTI NUE 
I  NOT  A  - JA  A 

150  1 F ( NSPL r  1  . 01  .  0  , OR . KNRS . NE  . NflS )  00  10  155 

NSPL  F  T -99999 
DO  152  I  «  I  . NT  GO 

IF  (  lOTYNWl  I  1  .LT  ,99  970.  1  TOTVEl.  (  I  )  -  TGTOVL 
I  52  CONT  I NUE 

totspo-totovl 

155  I r ( L  E  FT  1 N . GT  . 0 1  GO  TO  30 
160  I F ( KNRS  .  NE  NRS )  00  TO  25 

CALL  PR  I NTR 

IF  M  RUNS  LI.  NO  M  )  GO  TO  20 
KREAD  •  I 
GO  T  0  5 
END 
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5UBR0U1INE:  READIN  iKR£AOl 

COMMON  ACCP(5,2J  .AOtP«aO)  .ACI  .A|  (80)  .AIMPTK(50)  .AlMPTY(50l 

•AL.  NOLC.ANGIMP(  10)  ,AREH5.&I  .ARCP(80J  .AMIDLC.AyvVPMO)  .  Dfif  At  . 
'0ErHT(5)  .DETL  C5)  .OEr«AO<^»  ,OtrW45)  .OEEXtab)  .OETYieO)  .dCLATHi  looi  . 
•OEP(  I  0)  .OrTTAE  .OIRATKI  lOl  .D1«D15(  I  00)  .OHPI  !X<  10.  )0)  .OMPl  IY(  10.  10) 
•DUDPRB(7)  ,03  DEL, CHS, 5. 81  .lO.IDI  SOP  ,IOP«80,15.8).ICNO. 

•  I  IS,  IMINE  .  INDTA,  INTIHC(7>  .I09<SOOO)  .  IPO.  IPPINT.  |PNK(7)  ,  JUTflR. 
•IRONS,  ISAVE.lSBL.!SV|rA<30).ISVLST.lSYriP(Ji,l6tP.  IT.  ITERpP. 
•irGTPR(5.5).iVAP,IVCL.l WORD. IMTDCriBO) « IWTVAPt 10) 

COMMON  JMARKl  ,JSEl.OSl7l  .KAB00«<5M7)  .KDCTTNI  I00»  .KNR5.)^0UNT(7)  . 
•KTSAV(  100)  ,KI  ,LCrOPT.LCrTT.LOrOPR(9.B)  .LErTIM.MApiV.MIfBT(7)  . 
•MOOC.MTrAtSO). MUSH .NAP.NCTAMI  lOO)  .ND. NOCCC  A (  19.80)  .NOr.NOrA. 
•NDFAA.NDrOAMCS)  . NOTWO, NOPMT  T  .NGTAMI  100)  .NOTAUT.NOTAUI  (  100)  . 

•NIDBT<5)  .NITBTiS)  .NKIti.45)  .NftlLtOlSl  .NKILL  I  (9)  .NKIL.tT,NH0CTf7)  . 
•NHiN(7),NHSUPT(7).NMT.NOB.NOaCVt.NOBTP8.NOIT,N09rAT.NRAO(9). 
•NRAOrO(80).NRAOPHIOO),NRAH9>.NRBA.NRPffOTl9).NRr8IT<9), 

•NRf  IR0(  100)  .NRS. NSPtf  T  ,NSnCK(90).NSUB<9).NTCOL<IOO).MTOO.NTOTP. 
•NTGTYP(  100)  ,NTLCir(  10)  .NTUOST  ,NT7TCS(9»  .NTTTHp<9»  .NTTTRPI9)  ,NVAP 
•NVrAEACIOl.NVLlOrilO). NWCPV I  10)  .OBX.OBV.OBYPRT  .PATRA0(9)  .POLCF 
COMMON  PHD(5.S).PPEAri7>.PRBITY.PROTNO<9.7).PRKLO(9,7). 
•PROBILIBHQ)  .PRSW0Q(9,7)  .PAOrAC.RANGPR(BHO)  .RCLRNDi9).RCLSUB(9)  . 
•ReP( 10) ,RN,ROTOHP)((IO,IO) .ROTOMPY< 10. 10) .RSP(9l .9(100) .SCCON(7l . 
•SIGAOISQ)  .SIGAR(9Q)  .St  OBO(  90)  ,SI0BRl90)  .STATAL(9.9(7)  .  9WP0CL  (100) 
•SYMDOr(9.7)  .SYM0tF(9.7)  .SYM0IS(7.7)  .SYHMA)((S)  .TARMI  (9)  ,TARL(9)  , 
•TARRA0(9) .TARW(9) .106tFV( 10) .TGTOEL) l00> . TGTOVL.TCTSPO. 

•TGTVELC  IQO)  .T0TVL8.T0TVSV.T0TK0L(  100)  .TOTYNH(  100)  .TOTYOLC  100)  . 
•TGTYSV, THETA. TMRStClS. 91 .T1HEMV( 1001 .THBR0l9t ,Tf1iRl(9) .TMOLCF . 
•TMSWP(7)  ,TMTOrR(  1301  .T0TSIM.TRAVTM.)(CYCLE(71  .  KOMP  (lO.lOl.XFIK. 
•XMAX.XMlN.XQOErieOl.XOVPJIO)  . 

•XROrOC  301  .XROAO(  I  I  I  .XSMATH(50)  .XUIOTH.YOIVt  1001  ,YDMP(  iO.  lOl  . 
•YLENGTH*,  Y00EF(8Q1  ,YOVP(  lOl  .YR0F0(3Ql  .VROAOl  t  I  )  .V5WATH(90l 

DIMENSION  ORX(M  I  .0RY(**l  ,XYMSl*4»  .RNOSVf  3) 

DIMENSION  H0L(8)  .SECOFFI?)  ,PR0BTP(8)  .RANOTPlfl) 

OAT  A  1  TEST /9H  999/ 

RE  H I  ND  8 

HR  I  TE ( 6  H  H8Q  ) 

I  r  ( KRE  AO , C  Q .  M  GO  TO 
CALI.  REPRNT 
00  1  U  DO  7  I  • I  . flsO 

PROB  I  L  «  n  •  0.0 
RANOPR ( M  •  0.0 
7  CONT I NUe 

N0«0 

06X«06Y«0 . 

DO  6  I  •  1  .  I  0 
6  NVFAEA(M«0 
00  e  J • 1  ,  I  5 
DO  8  I  «  I  ,  8  0 
0  NDEFE  A {  J  ,  I  )  • 0 
L.  C  F  0  P  T  *  0 
MAO  I  V  •  0 
DO  9  I  «  I  .  5 
NRAt  (  I  HNRAO(  I  )  *0 

TARRAO(  I  )«TARL<  I  )«TARW(  I  )*TARMT(  1  1  *0  . 

REPt  I  I  -REPf  1*81-0. 

DEP (  n  -DEP (  1  •  ?  1  • 0 . 

NSUe (  I  1  •  I 
DO  9  J- I . 7 
S YMOOF  (I  . J  >  -  0  . 

9  5YMD I F ( 1 , J ) • 0 . 

DO  10  1-1,7 

TMSWP(  I  )-SECON(  I  )« SEC  OFF!  I  )-XCYClE(  1  )-0. 

DO  10  J -  I  ,  7 
I  0  SYMO I S (  I  .  J )  • 0  . 

I  END  n  0 

T'*  IE  NO  •  lEND  ♦  I 
JMARK 1 « 1 
I RUNS-O 
DO  83  I  -  )  .  t  00 
83  OELATM(M«0 
00  85  I « I . 7 
?S  1  NT  I  ME  (  M  *0 

RE  AD ( M  , 9000  )  HOL 
DCCOOE(90.9000,HOL)  INPUT 
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90  O'? 


GO  TO  50 

OECOOEI80,9012.HOL>IAP.SIGAR<  lAPi  .SI 

roRMAT(5x,i5.^riO-?> 

00  TO  50 

OECODCIBO,9009.HOL  »HT  .J5CU0S<HI  1 
rORMAT(10X,8l5.'iftO  ?i 
I  F  t  JSELOS  1  MT  )  .  CT  .  0 i  GO  fO  5  0 
DO  902  M*  »  .NAP 


GADMAP».51GBR(1AP».SIGBD(IAP) 


i  ODD 
90  12 


PPE  AF  ( M  T  ) 


TMSWPIHI ) .DUOPRBIMT ) 


1100 
90  0  9 


(Continued) 


50 

9000 


I  NPU  i 


200 


I  F  U  NPUT  .  EQ.  I  TEST  I 
00  38  J* 1 . 52 
DO  58  1-1.5 

STATALl  I  .J»*a. 

CONT I NUC 
REAOm, 90001  HOL 
FORMAT (eAlO) 

DECODE  ( 5 , 900  1  , HOL  ( 
r  ORMA  r  1  15  1 

I F ( 1 NPUT . EQ . 99 1  00  TO  7000 

I  F  M  NPUT..  OT  .  1  000  »  GO  TO  6900 

^0  TO(  100, 200. 300. MOO. 500. 600. 700. 800. 900,  1000.  I  100 
.  1500.  1600,  1700.  1800.1900,2000.2100.2200.2300,24001 
UECOOEt0O.9QO2.HOL)NAP.NTGO,NTGTP,NOlT.NOSTAT 
NUT  .  MODE  . N V  A P  ,  NCF A A  .  NDF WO , NRB A 
FORMAT(5X.6l5,riO.?.6151 
IFlSEED.LE.O.  J  SE.EO-RANFiOUMMYl 
CALL  RANSETtSEEOl 
GO  TO  50 

9003.H0LUCF0PT.tLeNGTH.XW10TH.THCTA.D30EL 

l-l,31,ISBL.ITEROP,lOISOP 
1 5 . 2F  1  0  .  2  .  2r5  2.415.12,13) 


1550,  1300.  I  MOO 
I  NPUT 
1  PR  1  NT  .  SEED . 


DECODE ( 80 
•  (  I S  TMP  (  M 
9003  format (5X 

00  ro  50 

300  DECODE (80 


90a4.HOLlN(N.NlOTYP(NTN)  .NCTAWINTN)  .NGTAW(NTN) 


TOTXOL(NTN),TOTVOL(NTN) 

iriNi.LT.noo  ro  so 

NTGEYP(NM“N2 
NC  T  AW  1  N 1  J  • N  3 
NGfAW(Nl)»N4 
T  GT  XOt  ( N  M  •  T  1 
I  G  T  r  0 1  (  N  I  1  -  T  2 
fOHMAT(2i5X. 15 
GO  r  0  5  0 
DECODE  t  ao  .  9005 


.  NTLCirt  iVAPl 


,  A  Y  Y VP  I  IVAPl 
T  DB 1 F  V  I  1  V  AP  1 


. HOL  1  1  I  t  P 

MARHrtiTYIM.IMBRMMYPi 

•NTTICS^  I  fYPJ  .NTTTMO'  |7YPl.NTfTRP(  I  TtPl  '' 

IF  (NTTTMD(  I  TtPl  .01  OlMAOtV-1 

9005  F0nMAT(5x,l5.4F10.2.F52.l5,5ll.3l5) 

GO  T  0  50 

500  DECODE  I  80 . 909  1  .  HOL  1  I VAP,  IROAD.XOVPI  IVAPl, YOVPIIVAPI 
•NVEAEAI  I  VAPI  .NHCPVI  IVAPl  .  IHTVAPI  IVAPl 
roRMAT 11 0* , s I  5 . sr 1 0 . s , 1 1  9 .r  I  0  si 
1VP0»IFIX(X0VPI  IVAPiMOO.  ) 

XOVPI  IVAPl  -  FLOATl  IVPO*  100»-1ROAO«  ISIGN(  1 
GO  TO  50 

OECOOE(80.9090,MOLilVAP.IWEPV,OMPIlXi?VAP,lWtPV 

•OMP (  I  Y (  I  V AP ,  I WEPV 1 
9090  r ORM A r 1 ; 0 X , 2 1 5 . 2r t 0  .  2 1 
GO  TO  50 

.RELSUQI  IWT*.  .PATRAOt  IHT  1  .RELRNDl  IWT) 


I  VPO  1  ) 


600 


7  0  0 


,  2r  I  0  .  2  .  I  9  I  3F 


00  0 
90G9 


)  NR5 . T  0  r OVL  .  T  G  T  VL2 

.  e  1 


DECODE ( 00 , 

NSUO (  I  HI  1 
F  0  R  M  A  T  {  5  X  , 

GO  TO  50 

DEC  ODE (00,9089  , HOL 1 
rORMAT(tOX.15,2FIO. 

TorovL-TOTOvL'ee. 

TGIVL2-TGTVL2*00. 

N  -NRS ♦  I 

REAO(M  .900  7  1  (XROAD(  I  1 
r  orma  r ( 0F I  0 . 2 1 

DEC  ODE  (00,  9013. HOL  ilAP.MTFAttAPl  .NSTICK(  IAP)  tAiMPTXl  lAPl 
•AlMPTYl  IAP!  .YSHATHI  !AP)  .XSHATH(  IAP) 

FORMAT(5X.3l5,4ri0.21 
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IFlMTFUMi.f-Q  MM  00  tO  903 

902  C  ONT  1 NUC 

903  J*0 

qOS  Rt »D ( 9  . 9007  1  I  ORK  1  I  I  . OR < '  I  I  , 

DO  9  10  1*1,'* 

WRITEISI  ORXIM.OHYIll.Mt 
lF(J»l.EQ.NSTICH(f1i>  GO  TO 
g  1  a  COST  I NUE 


00  TO  905 

12  0  0  DECODE  c  80  ,  90  1  0  t 
gOlO  FORMAT  IIOX.  15,7 
00  TO  60 

1  30  0  DECODE  180.9010, 
GO  TO  50 

moo  DECODE  180,9010. 
GO  TO  50 

1 ^00  DECODE  1  80,901  I 
gOll  FORMAT  110X16,2 
I  NT  I  ME  I  MT  1  ■  1 
GO  TO  60 

I  600  DECODE  1 80 . 9099  . 

•  7 OOEF I NUMDE  r  1  ,  I 
g099  F  tiHMAT  (  5X  .  2  1  5  ,  c 
GO  TO  50 

1700  DECODE ( 80 . 9093 
9093  FORMAT  ( 5X  . 2  I  5 . ‘ 


HOL  I  1  WT  .  1 SYMDDF I  IHI  . Jl  , J-  I 


HOL>  I  WT  .  ISYMDIFI  IWT  ,.J1  ,J-1  .71 


KOUNT IMT I 


XYMSI  1  1  .  1  •  I  .  9  > 


100.1 

♦  IGlONll.IXYMllMROADI 
10  0.1 

♦  191GNI  1  .1XYM2  1  • NOr  I 


lXYMl-iriXlXYMSlt*EI* 
XHOFOINOI •FLOAT ( I XYMl 
1  XYM2*  1  F  1 X  1  X YMS I  1  *2  1  • 
YRDFOINDl •FLOAT ( lxyM2 


1705  CONTI NUE 

1800  OECOOE180, 9016. HOL  1  I  1  .Jl  ,PHDI  I  I  ,JI  1  .  12.J8.PB.  13,)S.P3 
•l9,J't.P'*.19,J5.P5 

9016  FORMAT  I 5X  . 5  I  2 1 5 . F5 . 2  1  1 
IFU2.LT.il  GO  TO  50 
PHD (  I  2 , J2 ' *22 
1FII3.L7.1100  TO  50 
PHD (I  3 , J3 1  'P  3 
IFIIit.LT.llGO  TO  50 
PHD  (  1  4  ,  JR  1  *2'* 

IFII9.LT.il  GO  TO  50 
PHD  1  I  5 , J5 1  -P5 

1900  DECOOEI80,90I7,HOL1II.J1.NI.EV1.I2.J2  N2.EVP.I3,JJ.  .NT 

9017  F0RMAT(5X. 31315, FIO. 211 
EIUI.JI.IUNI 

E1(II.JI.PI*EVI 
IFII2.LT. 11  GO  TO  50 
E  I  I  I  2  ,  J2  ,  1  I  -  N2 
E  I  t  12  .  J2 . 2  I  'C  V2 
lFII3.LT.il  GO  TO  50 
EI(I3,J3.1'*N3 
EIU3.J3.2I«EV3 
GO  TO  50 

20  00  DEC  ODE  I  80 . 9050  . HOL  I  N OF T Y P  , OE F L  I NOF T Y P 1  , 

•DEFRADlNOFTYPl.OEFHTlNOFTYPl.TMeRDINOFTY 

•(  ITGTPHINOFTYP,  I  I  ,  I  ■!  .51 

9050  F ORMAT  ( 5X  ,  1 5 . 4F  I  0  . 2  , F5 . 2  ,  I  5 .5  I  I  I 
GO  TO  50 

2100  decode  I  80 . 905 1  , HOL  1  M.AI 

9051  FORMATI5X.16,3F10.2,5X,I5 

Al  (  I  1  l^COSiAl  1*  .017453291 
AREP 1  I  I  I  -AREP I 
AOE  P  I  I  1  1  •  A  DE  P  I 
IFM2.LT.il  GO  10  50 
A  I  1  1 2  I  •COS  I  A  I  2 •  017453291 


I  2  ,  A  I  2 . ARE P2 . ADEP2 


30.  (Continued) 


ARE  H  t  I  ?  I  »  A  RE  P? 

A  OE  P I  I  5  I  “ A  OE 
00  10  50 

0ECOOrf80.905?,HUL  »  5,J.K,N,AEV,AREl1 
FORMA!  I5X,M15.F  lO.e.fS  c^.flO  a) 
A£IU,J.a*K-l)-N 
AE!M.J.a‘K)*AEV 


!?aoo 

905? 


iriK  GT.l)  L«J 

ARE  L  t  L  . K  j  *  ARf I  I 

}FIN  Cr.M  AC e P t L  .  K  I  -  ACE P  I 

GO  TO  50 

?500  DECODE«0O.9O53,MOLI  !1.J1.<I.10P1.I?.J?.KP.ID!>?.13.J3.K3.10P3 
9053  »0RMAT'5X.3!4f5.5Xli 

I  OP  M  1  .  J I  , K I  1  «  I  OP i 
IFiip.LT.M  GO  to  50 
IDPU?,J?.K2i-IOP? 

,  I  F  (  I  3  .  L  T  I  I  0  0  I  0  5  0 
lDP<l3.j3.K3i«fOP3 
GO  TO  50 

?MaO  OECODEi8D.90e9,HOL  ilCf  IT  .UOf  At. OFT  CAE  .RADFAE  .  AL  NOL.  C  . 

*  A W I  DLC  .  T  HOLC  r  .  POt  C  f 
90? 9  F0RMATt5X.l5.7F|0.?i 
GO  10  50 

690  0  OECODF.  (9O.9OO0,HOLt  NT.MM..NlB.!PROeTPU».l*'I.B) 

9Q0a  rORMATMX,M,l?,M.f5  ?,7M0.?» 

REAO(M  .9000)  NT  ,NM,NTO.  (RANCIPl  I  )  ,  1«1  .9j 
NTA0L.  E-INI-|l»?|t:NM  li*3^NTB 
LL*8*(N1ABLC-Ii 

Doegioi-^i.a 

PROQIl.  ILL  "Jl^PROBIPM) 

6  9  I  fi  R  A  N  G  P  R  J  L  1.  »  I  »  ‘  R  A  !<  0  )  P  i  I  ' 

GO  ^  n  50 


P  C  R  r  0  H  M  I  N  f  M  A  t  C  A I  u  o  I.  A  1  I  0  N  5 


7  DUO  00  7  005  ^•l.NMI 

XC  r  C  I  E  U  I  ' St  C  ON  <  1  »  t  5C  COFF  (  1  I 
NH I  N  M  I  «  0 
00  7005  .J"l.NAP 

irtMfFAtJl  EO.I)  NM|Nf|)»NM!N«|l«NSrjCK<J) 

7005  continue 
I  R  T  F  1  H  «  0 

00  7006  i ' I , 5 

IFlNRAMli.LT.n  CO  10  7006 
I  R  r  F  I  R  -  1 

7006  NI1BT{M*0 
N  G  T  A  W  T  >  0 

DO  7008  } • 1 , NTOO 
f-l  •  r  0  T  Y  P  (  I  1 

NGTAWT-NGlAWT^NOTANf  I  i 
7008  Nir8T<N)-NlT8TfN>M 

{F(ISYMP(1).lT  M  go  10  7015 
SYMMAX  M  )  •  0  . 

DO  70  10  I  •  1  .  NMT 
0  0  7  0  10  J  «  t  .  7 

SYMDIS(l.J)-SYri01S(I.JI'»? 

7010  SY«NAX( I 1*AMAXI <5YMMAX! I ) .5YM0ISI I .J) ) 
SYMMAXJ  I  I-SORTISYMMAYI  I  J  ) 

7015  R5PMAX-0, 

I  F  U  5YMP ( 5  I  . L  T  .  1  )  GO  TO  70  17 
SYMMAXJ?1«0. 

00  7  0  16  I  -  t  .  5 
DO  7  0  16  J  •  1  .  7 

SYMDDFi  I  .JJ-SYMDOFi  1  .Ji  •  ‘S 

7016  SYMMAXtaj-AMfXl  (SYMMAX  i?)  .SYMODFl?)  ) 

SYMMAX '?»«SORT (SYMMAX*?) ) 

7017  IFtlSYMPiai  ir,l»  GO  10  7019  , 

SYMMAX* 3)«0 

D  0  7  0  I  «  1  -  I  .  5 
D0701BJ«I.7 

SYMDlFc  I .>n*SYMDIF(|.j)«*e 
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SYnnAXi  3)  -ANAXI  iHYMnAXI  11  .SYMOiFi  t  ,Jl  t 

SYHHAX(3t«SQRT($YHHAXl3ll 

1  r ( NMT  . L  T  .  I  I  00  TO  10H6 

00  70M0  I ' I . NTOTP 

f?SP  (  11-0. 

00  7035  J- I .NMT 

00  7030  K- I . 3 
NTl-S«(NT*K-ll 
00  7070  L • I . 0 

i  P < PROS  I L  ( NT  I  «L  1  . e Q  .  0  .  I  00  TO  703? 

CONT 1 NUC 

RNOSV( K 1 -RANGPRTNT 1 ♦L I 
CONT I NOC 

PRSUOO ( 1 . J 1 -RNGSV ( 1 1 
PRKU  Q  M  . J 1  -RNOSV ( 3  1 
PRDT  NO (  t  , J 1 -RNOSV l  31 

RSPI  I  )  -AMAXI  (RSP(  I  1  .RNGSVt  1  1  ,RNGSV(  3)  > 
RSPHAX-AHAXI  (RSPMAX.RNOSVt  1  1  .RNOSVf  Si  ) 
CONT INUt 

IPIHAOIV.GT.OI  RSP<ll*RSP (11*30. 

CONTI NUC 

I  r ( MAO  I  V . GT  .  0  I  R5PMAX-R5PMAX* 3D  . 
XMIN-XMAX-Q. 

00  7060  1 • 1 . 5 

N  1  OBT  (  M  •  0 
NOrwT  «Q 

1 r  (  NOT  WO .  L  T  .  (  1  GO  TO  7005 
00  7075  I • I , NOrWD 
N- 1 WT  ocr (  1  1 

N I DBT  ( N )  • N I OBT  ( N I  *  t 


1  1  GO  TO  7005 
NOPMO 


iriNtOBTMi.oT.ni  Norwr*Nurwf*i 
CONT I NUC 
CONTI NUC 

00  7100  I • I . NTGO 

XMAX-AMAXI (XMAX,TOrXOl( j 1 1 

XMiN-AMlNI  (XHiN.TOTXOLt  I  1  1 

XMAX«XMAX*RSPMAX 

XniN«XMIN'RSPHAX 

IP  ( XMAX . or , I 6SB . 1  XHAX«l63e. 

IP  ( XM  I  N . L T .  •  I  630 .  I  XMlN«'163e. 

I  P  I  NVAP . L  T  .  n  GO  700000 
00  0«7OO  I  -  1  ,  NVAP 
C0SA-COS(AYYVP(n*.0l 7N53a0a5B» 

SiNA-SIN(AYYVP( i !• .OI7N53P0256I 
X0RGVP.PLOAT(iriX(XOVP(n/|00»W)00. 

YOROVP • YO VP ( n 
NHV«NUCPV ( I ) 

I  P  I  NUV . L  T  .  I) 00  TO  0?OO 
00  6100  J- I , NUV 

XOMPt  1  ,J1  -XOROVPtOMPl  tX(  I  .J»'COSA*OMPI  I  Y(  I  .  J)  -SIN A 
YOMPI  I  ,J)-YOROVP^OMPMY(|  .Ui*COSA-OHPnX(  1  .Jl-SINA 
CONTI NUC 
CONT INUe 

60  0500  I • I .NtOTP 
AM-AMAX  i  I  TARt  (It.  T APU(  I  1  1 
00  0500  J* 1 . NVAP 
K«  I  NTVAPf  Jl 

THRS10(K.M-(‘*.MM«AMAXMRrP(J».OtP(U)1*AM*50RT(CMR»l.8MI 

CONT I NUC 

RC  T  URN 

rORMA  T  (  I H  n 

PNO 


J  )  •  S  I  NA 
J  ]  *  S  I  N  A 
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SUBROUT  INC  StTUP 


L'  7  U  R  N 


TO  BEGIN  EACH  MONTE-CARLO  ITERATION 
r  n!  Q  ^  °  ^  '“tT  »  >20  I  .  DEFY 

CL  .E  M  5 , 5  .  e  I  ,  I  D  ,  1  01  SOP  ,  I  OP  (?0  'll  Pi 
*  .  1  NT  1  ME  (  7  1  .  1 08 ( 5000  1  ,  I  PO  IPRINT  II 

=  9L,  ISVIFA.30.  ,  ISVLST.ISYMPM?  ^^S;p 

^*p.  IVEl,  IHORD.  IWTOEFIPOI  IHIVAPT  in 

.  LCrOP T  ,  LCr  I  T  .  EOFOPRT 5 , 5  I  LEFTIn  Mir 
MUSH,NAP,NCTAailOOI,ND,NOEFEAM5  PC 
■  .  NDFHD.  NDFHT  .  NOVT  ,(40TAH(  I  00  I  ,  NOtL 

51  .NKILLISl  .NKI.  LrT9.-.VirUL,;3, 

l7(.NMr.N0B  NOSE  V T  , N08TPP  NOII  Mnci 

s^-sr^"t  HeTlT’’  ■*'■•*  rrrioi.sl.iBr 

BMP*  (  I  0  .  I  0  I  , ROrOMPY (  IO,IOI,RSp,3|  c 
R'50i  .siOBDisni  sinsN  i 
"0IF(5,7,  ,SYMPISI7,7I  .SYMMAX^r;*; 
TVL^'l’f  ■  'OTOELMOOI  .TGTOVL  T 

;n  •  '«B9D(5I  ,  TMB 


T(jTSP0«TGTvL5 

iriMOOE^LT  3MOTSPO..OTOVL 

R  E  H  I  N  0  V 
I  RUNS " I  RUNS  »  I 
DO  300  I ■ 1 , 5 
FIKICLIMIoNKIULOMI 
300  NKIL  L,  M1*0 
00  305  I  .  I 
N  V  L  I  D  r  1  I  I  * 

305  CONTINUE 

DO  310  1 » I . 7 
310  RMSWPT  (  I  1  -NMOE  T  I  I  I  IN  '  FBI  I 
00  319  J.| ,eo 
DO  315  l■I.15 

315  roe  F  t  A  I  I  ,  j  )  .  I  105  I  ^(3(- Pj.  ^  I  I 
DO  3P0  Jcl.lS 
lSVIFAIJ*l5i,o 
3B0  ISVIFAIjl-o 

DO  335  J.| 

3B5  TMTOFRI J| . 

00  330  1-1 

KOF  T 1 N (  I  I  •  0 
NRF I RD  M  I  •  0 
330  DELATMMiiO, 

NKIl.  UTiNSPl.  F7*0 
NTLOST.O 
NOBE  VT  1  1 

the  T«  .  0  I 7N63S95" THE  r  A 
SiNT"SlN(THETl 
COST"CqSl  THE  T  I 
KNRS  •  0 

»WB«XHI0TH/P, 0 
TL  ? - YL  E  NO  thy  e  .  0 
DO  BIO  I  "  1  *  5N  7 
?  1  0  KABOOMi  I  I  -0 


NRFSI  T  ,  I  ,  -NREBOn  I  1  .NOEDAMT  I)  -0 


.  NVAP 
NVF  AT  A  t  M 


.  I  30 
9990 
.10  0 


(Continued) 


NOB  *  0 
NO6TP?-0 

I T  -  n 

N«NBS  ^  [ 

NOB-NOe^N 
00  200  I  •  1  ,N 

200  WRITtfl)  yROAOU».YflOAOCM.N09TP2,|T 
1 F  ( NAP  . L  T  .  1  1  00  TO  160 

DO  1^8  t  . N AP 
14  7  CALL  RNORM  f  RN  I  ) 

CALL  RNORM(RNd) 

REN  I  NO  2 
NT-HTF A  (  J  i 
i  T  -  0 

N»NST 1 CK ( J I 
00  146  \ •\ ,H 

CALL  RN0RH(RN3l 
CALL  RNORM ( RNH  ) 

N0BrP2-MT 

I  F ( J5EL0S { MT )  J  120*130 
130  RCAD(21  ORK . ORY . NQBTP2 

I  F ( NOBT P2  , NE  . HT  I  GO  TO  130 
GO  TO  150 

lao  00  T 0 (  I  22 .  I  25 ,  l 25 .  I  22 »  . JSELOS 1  Nil 

122  CALL  RNORH ( RST ART  ) 

0RX-XSUATHrjl/6.*RSTART 

I  r ( JSEL OS ( NT  ) “H I  123.126.123 

123  CALL  RNORN^RSTART ) 

ORY«YSWATM(Jt /6. •RSTARl 
GO  TO  150 

125  ORX<‘XSHATH^J)*(RANFl  DUMMY  1^.51 
ir(JSELDS(MTl-3»  126. 123. 126 

126  ORY*YSUATH(Jl«(RANr( DUMMY  1  -  . 5 1 
150  0RX-0RK*RNt*StGAD(Jl4RN3*SIGeDtJl 

ORY«ORY*RN2*S1GAR(J1*RN4*510BRIJ1 
OeX«AIMPTXlJ> ♦ORX«COST*ORY»S|NT 
0BV-AIMPTY(J»*0RX»SINT»0RY*C0ST 

I  r  (  ABS ( OBX  1  . GT  . XM2 . OR  ABS < OB Y 1  . 0 T  . V L 2 )  GO  TO  146 
143  RN  •  RANF i  DUMMY  ) 

IF(RN-DU0PRB(MT1»  20,20,25 
20  NO0TP2«NOBTP2«B 

25  I  F (  I  NT  I  ME < MT  1  . E Q . 0 1  00  TO  145 

RN  «  RANF  (DUMMY) 

I  T  tRN*  XC  YCLE  ( MT  ) 

!F  ( KOUNT I MT ) . OT . 0 )  IT«KOUNT(MT) 

(F  flRNKlMYl.GT.Ot  lT-iriX(|T«RN)«-l 
145  1  F ( mode  .  EQ .  1  . AND . NOSTPa . GT  . 0 1  00  TO  146 

NOB  «  NOB  «  t 

WRlTE(n  OeX.OBY. NOB  TP2.it 

I  4G  CONTI NUE 

1  F  ( NOB . LC  .  32767 )  00  TO  160 

PRINT  1  Q  C  0 

10  0  0  FORNiAT(«  MORE  TMAI4  32767  MINES  IN  MINEFIELD*) 
CALL  EXIT 
160  N08TP2-0 

MRIT£(M  09X,0BY.N0BTP2.|T 

10  MUSH  •  0 

TOTSIM  •  0.0 
00  100  I • 1 , NTGO 

N  «N  T  G  T  Y  P (  I  ) 

NRAOri ( I )-NRAI (N) 

IFINTTTCS(N) .EQ. I >  N5PLrT«NSPLrT»l 

99  T I MEMV ( n -0 . 
tqtdel ( n  -0  . 

SWPDEL  M  1  -0  . 

NGTAHI  (  I  )  -NGl  AW<  I  ) 

TGTVEL  (  I  >  «TOTSPO 

100  CONTINUE 

DO  no  J«  I  .  NOFWO 
N« I wToer ( J ) 

NRAOFO  <  J )  -NR  AO ( N ) 
llQCONTiNUE 
RETURN 
END 


Figure  30.  (Continued) 
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SUBHOUHNE  «QAO 

COMMON  AC£P(5.?]  .AOtPt?0»  .At  i  .b .H  \  ,  kl  I SQ)  ,AlMPTXl50l  ,AlMPTY(50i 
ALNOLC.ANOIMPCIOI  .ARF:L«5.e»  .AREP(aO)  .AMIOLC.AyYVPMO)  .OBtAE. 

DtruTf^j  ,DrrL(5) .depradisi .oefwib) .ocrxipoi  .DCfYcpoi .oelatm*  i00>  . 

DFP(I0l.DrTFAC.OlRATKM0J.OlRD15(!00>,OMPIlXt!0.10).DMPllY(10,l0i 
0U0PRB(7J  .030CL  .El  15, 5. P)  .  10.  lOISOP,  lOPieO.  15,2)  .lENO. 

1  IS.  MINE.  INOFA,  INT  tMEtV)  .  10ec5000>  .  IPO,  IPRINT,  lflNK(7)  .  IRTFIR, 
IRONS,  ISAVE,  ISBL  .  ISVIFAfiO)  ,  ISVLST.  IStMP(  3)  ,  ISYP,  IT.  ITEROP, 
1TGTPR15.5)  .  IVAP.  IVEl  ,  IkORO,  lWTOCri20)  .  IWTVAPilO) 

COMMON  JMARKl  ,  .ISELDSt7)  .KABOOMI^H?)  ,KOFTTN(  100)  .KNRS.KOUNT  (7)  . 
KTSAVClOO).Kl.LCFOPT,LCFrT.LOFOPR<5.5).LeFTIN.MAOIV.MlFBT(7». 

MODE  .MTFAISOI  .MUSM.NAP.NCTAHI  lOO)  .NO, NOCFE  A (  15.20)  .NDF.NOFA, 
N0FAA.NDF0AM151  ,NOFHO.NDFkT.NOVT.NOTAW<  100)  .NOTAMT.NOTAHI  I  100)  , 
NIOBTfS)  .NITBV(5I  .NKILl.  tS)  .NK1LL045>  .NKltLtCS)  .NK1LLT,NH0ET17)  . 
NM1N(7J  ,NMSWP7l7l,NMT.N0e.NOaEVT,MO8TPP,NO!  T.MOSTAT.NRADM)  . 
NRAOFOIBOl  .NRAOFI  !  '001  ,NRAi  (5)  ,NRBA.NRF»0T(5)  .NRFBtTlB)  , 

NRFlROi  1001  .NRS.NSPLFT  .NST  ICKI50)  .NSUB45)  .NTCOLl  1001  .MTOO.NTOTP, 
NTOTYPl  iOOl  .NTLCirj  ^Q)  ,NTL05T  ,NTTTCS(5»  .NTfTHDM)  .NTTTRP15)  .NVAP  , 
NVFAEAl  loi  .NVL  IDF(  10)  ,NWCPV(  10)  .O9X,OBY.O0YPRT  .PATRADI5)  .PDLCF 
COMMON  PHDl5.5l.PPrAF(7),PRBITY.PftOTNO<5.7),PRKLO<5,7), 
PROBlL<0MOl,PRSWDOr5,7)  .RADFAE.RANOPRTe**C)  .RELRNOMI  .REUSUBMl  , 
REP)  IQI  .RN.flOTOMPX(  10.  )0)  .ROTDMPYI  10.  10)  .RSPtS)-.  St  100)  .SECONt?  )  . 
‘SIGAOl'SOt  ,SlGARl5ai  ,SI0BO(50)  .S109R(50)  ,STATAL(5.52I  .SHPDCl-l  lOOt 

•5YMDDF(5.7l.SYMDlF(5.7l.SYM0ISr7,7l,SYMMAXt3>.TARHT15).TARLtS). 
-TARRAOtS)  .TARWtS)  .TOBlFVt  10)  .TCTOELl  100)  .TGTOYL.TGTSPO. 

•TCTVELI  lOUl  .TOTVL2.TGTVSV.TOTXOLtlOO)  ,TCTYNW(IOO),rGTYOL(  100)  , 

•TGTYSV.7HETA,THR5IG(5.5l.TlMEMV(100).TMBROt5).TMBRlt5).TMOLCF, 

■TMSWP(7I  .TMTOFRt  130)  ,  fOTSIM.TRAVTM.XCYCLEtT)  .XDMPl  10.  10)  .XFIX  . 
‘XMAX.XMlN.XODEFtaO) ,XOVP( )0) . 

•XROFOt  30)  ,XROAO(  1  1  )  ,XSWATH(50)  .XWlOTH,  YOlVt  100)  .YDMPt  10.  I  0)  . 
•YLCNOTH.YODEFtaO)  .YOVPt  10)  .YRDFOtSO)  .YROAOt  t  I  )  .YSWAtHlSOl 


DIMENSION  XLCr  (  1  00  ) 

NOT  A  -  I  NDF  A  •  0 
RE  U I  NO  1 
KNR5-*KNR&*  I 
[,)  0  !  Q  M  1  .  K  N  R  3 

1 U  R£  AO (  1  I  XR I  . Yfl 1  . NOBT  pa  .  I  1 
READIIJ  XRa.YR2.N0BtPa.ri 
20  RtAOnt  ORX  .  OHV  .  NOBl  Pa  .  M 
IFINAP.LI.M  GO  10  25 
iF(NO0TPa.EC3-e)  00  TO  ?0 
25  Na«NOBTPa 
L  1 7 « I  r 
A  I  »  YRa  -  YR I 
Aa«xRa-xRi 

iFtAa.eo.o.)  Aa-.oooooot 

THETR-ATANatAl  ,Aa)-3.  M  159265 ‘‘/S 
C0STH-C05( THETR) 

5  I  N*  1  R  •  S  I  N  I  T  H  E  1  R  ) 

OBX“D  0 
OBY  *•0.0 
Noe  r  pa  •  8 

I  1  •  I  M  I  N  E  •  0 
C  ALL  1  PACK 
1  00  M  1  ‘  I  WORD 

VLENTH-0BY*5QRT(Aa»*2^A!  •  - B  ) 

CALL  IPACK 
NO0-a 

I  OB ( 2  I  « I MORD 
NOBT  pa-Na 
I  T  »  L  I  T 

00  M5  1-1.120 
MS  T  M 1 OFR  M  1  -9999 . 0 
YM 1 N-99999 . 

Y  M  A  X  -  0  . 

00  5  0  I  M 1 NE  *  1  . 327  67 
I  F  I  NOB  TPa  E  Q ,  Q 1  00  TO  10  0 

O0X*(ORX-XR!  1*C0STR*IPRY-VRI  )«SINTR 
OBY«  -  tORX  XHl  )  •SINT-R»  (O^YMRl  )  •COSTfl 
!  F  (  OBY  .  GT  .  YLENTH  .  OR  OBY  L  .  0  .  )  00  TO  HO 

I  F  I  OaX  .  L T  .  VM 1 N .  OR  . O0X  GT  XMAXl  00  TO  HO 


(Continued) 


VHIN-4MINI  (YtllN.OBYl 
YMAX  -AMAX  I  I  YMAX  OBY  ) 

I  DC  t  ■  0 

1  r  I  KNR,  .  GT  .  I  I  CALL  BOOt1IIDEr,ai 

IClIOET.EQ.IIGOlO'tO 

CALL  IPACK 

«"MOD I Noerps , 8  I 

I r ( NOBTPS . CT  .  I  5 1  GO  TO  29 

MlFBTIMJ.MlrBTIMlYl 

NOB'NOBx I 

I r I  NOB . L I  . 500  1  I  GO  TO  SO 
PRINT  1000 

«ithin  ranoc  or  influence  for  a  roa 

•D  SEGMENT  •/ 20  I  I  H/  I  ,  •PROGRAM  STOPS*  20MH/11 
CALL  EXIT 
I  OB ( NOB )  •  I MORO 
READIll  ORX , ORY , N06TP2  .  I  T 
CONT I NU£ 

DO  120  l-I.NTOO 
KTSAV  I  n  >  I 

IF(KNRS.EQ.I)  GO  TO  110 

I F ( T BT YNW n I . 0 T . ggggn . )  co  to  120 

TGT  YNW I  I  1 -TOT  YOL  (  I  I 
TGTVELI I l-TOTSPO 
1 F ( XNRS . EQ . II  GO  TO  120 
TADJ-ABSITOTYNHI  I  l/TOTVEL  I  I  1  I 
DELTM-TGTDELI  I  I  •SWPDELI  I  I 
TIHEMVI  I  l-TIMEMVI  I  l-IAOJ-DELTM 
TGTYNWI  I  l-TOTYNMI  I  1-TOTVELI  1  I  -  OELTM 
CONT I NUE 

TGTYSV*T0TY0L  I  I  I 
LEFTIN-NTGO-NXILLT-NTLOST 
MUSH*  0 
NOV  T • 0 

DO  121  1*1,100 

S  (  I  I  *  0  . 
i SVLST • I 
K  rSAV  I  I  1  *0 

IFINVAP.LT.ll  GO  TO  135 
IMINE” I T*0 
N0BTP2  *  I  6 
DO  ISO  J* I . NVAP 

OIRATKI  Jl  *AYYVP(J1  •  .  OI7M5329S-rHE  TR 
I RD*AMOO I XOVP I J I , 1 00 , I 
I  ROAD- I ABS (  I RO I 
I F  (  I  ROAD . NE  . XNRS 1  GO  TO  ISO 
IT*NTLCiriDI 
1  M I NE  *  J 

XR*(XaVPIJ)-|ROAOI/IOOOO. 

YH-YOVPIJI 

OBX"  IXR-XRI  )  'COSTRtlYR-YRI  I  "SINTR 
OBY*-(XR-XRI 1'S1NTR«IYR-YRI 1*00510 
1  F  I  OBY  .  OT  .  YL.  ENT  H  ,  OR  .  08Y  .  L  E  .  0  .  I  00  TO  125 
I F 1 OBX  , L T  ,  -  I  638 .  . OR . oax . 0 T  .  I 6S8 .  I  GO  TO  125 
CALL  IPACX 
NOB  -  NOB •  1 

IFINOB.LT. 50011  GO  TO  I2M 

PRINT  1000 

CALL  EXIT 

I  OB [ NOB )  *  I  WORD 

CONTI NUE 

CONTI NUE 

00  ISM  J* I , NVAP 

NHV*NHEPY I J 1 

1  F  1  NWV  .  L  I  .  1  )  GO  TO  ISM 

00  I  3  3  K ■ I  , NHV 

R0TDMPX(J,KI-(x0MPIJ,X)-XRII*C0S1R«(YDMP(J,KI  YRII"SINTF< 

R0TDMPYIJ,K1*-IXDMPIJ.KI-XRM*SINIR<(Y0MPiJ,KI-YRI 1*00310 

CONTINUE 

CONT I NUE 

!  M I NE  ■  0 

11*0 


Figure  30.  (Continued) 


iriNO.Lt  ii  Goro  160 
no  160  I • I , NO 
!HD-AMOOIXROrOl  I  I  ,  100.  1 
I RD- I AB5 ( I RO I 

I  r  M RO . NC  , KNftSl  GO  TO  160 
xR'=rLOAiiiFixixROro<it/ioo.  ii 
vR'Iloaii irixivRoroi i i/ioo. i i 

OBY-^-IXR-XRI  i  •3INTR«IYR-yRI  I  ‘COSTH 
IflOBY.GT.YLENlH  OR.OBV.LE.O.)  GO  TO  160 
N0BTP2. I  7 
I  r  (  L  I  I  *4  9  ,  I  4  7 
14  7  L  «  I 

I  t  'If  IXIAMOOlYROrOl  I  I  ,  100.  1  I 
I  r . I ABs I  1  r  I 
14  0  CALL  I  PACK 
NOB-NOB* I 

I  f I  NOB . L  I  .  500  1  I  GO  TO  140 
PRINT  1000 
C.  Al  L  EXIT 
149  NOeiPB'IB 


CO  TO  140 

14  0  108  1  NOS  I « 1  WORD 

1 60  CONT I NUE 

160  I  r  I  Nor A  A . L T . I  I  CO  to  4oo 

DO  35  0  I • I  , NOE  MO 
DEf  X  I  I  I  . I XOOEE (II- 
OE  r  Y (  1  I  . -  ( XOOE  F I  I  I 
0  CONTI  NUE 

400  iriLCFOPT.LT.lIRE  TURN 
N  L  C  F  C  T  •  0 
DO  410  I ■ I , NTOO 
I  F  INrOT  YP(  I  I  .  NE  .  LCF 1  T  I  GO 
Nl C  FC  T  'NLCFC  T . I 
XL  Cr  INLCrCT  I  -TGTXOI  I  I  I 
4  10  CONTI  NUE 

OLCF  'ALNOLC 

IF  ( LCFOP  T  . GT .  I  1 DLCr . OOF  AE 


XHIl-COSTR'IYODErill-YRIl'SINTR 

-XRI  I  'SINTR*!  YODEFI  I  I  ..YRI  )  ‘COSIR 


I  M  I  NE  •  0 
NOB  IPa.  I  9 
OB Y- YM I N-e . 'OLCF 
OBY'AMAXI  (O8Y.0.  I 
4aa  obY'OByydlcf 

I F I OBY . 01 . YMAX I  GO  TO  500 
DO  430  l-I.NLCFCr 
OUX-XLCF (  1  I 
CALL  IPACK 
NOB-NOB* I 
1  OB  I  NOS  I  -  I  WORD 
I  F ( NOB . L T . 500  I  I  GO  TO  430 
PRINT  1000 
CALL  EXIT 
430  CONTINUE 
GO  TO  420 
500  RETURN 
C  NO 


Figure  30.  (Continued) 


SUBROUTINf:  BOOM({Oef.Nl 

COMMON  ACEPt^.Jl  .AOEPieOI  .AEI  t  A1  leOt  ,AINPTX(50>  ,A|MPTr(50» 

•ALNOLC  .ANG1MP{  lOl  .  APeL<5.a)  .ARCP(20)  .  AHI  OLC  .AYVVPJ  IO»  .OBTAC  . 
•DETHl  (51  .0t:rL(5i  ,DCrRA0(5»  .0CrH(5l  .DCr«l?0)  .0try*20>  ,DCLATH{  IDOl  . 
•DEP(  IQi  .OrrrAt.OlRATKl  101  .DIRDISt  I  001  .OMPI  |)((  10.  tOI  .OMPI  I  ri  ID,  )Oi 
•OUOPR0t7i.O1OEL,Et(5.5.2I.IO.IOISOP.IDPieO.l5.ai.ltNO. 

«  (  IS,  iMINC,  INDTA,  INTI HC  (71  ,  IOB(500O)  .  IPO.  (PRINT,  fRNKi7l  ,  IRTPIR, 
IRONS,  ISAVE  .  IS0L  .  ISVITAlBOl  .  ISVLST  .  ISYMPlJ)  .ISYP.IT.ITEROP. 

•  I  TGTPR(5.5l  .  IVAP.  IVEL.  IMORO.  IWlDEf  (?0)  .  IWTVAPI  101 
COMMON  JMARKI  ,JSELOS(7»  ,KAB00MI5H7»  .KDETTNl  100)  .((NRS,K0UNT(7)  . 
•KTSAVC  100'  .Kl  .LCFOPT  .LCr  TT.L0r0PRC5.5l  .LCFT  IN,HA0IV.HirBT(7)  . 
*M00e  .HTEAI  501  .MU^h  naP.NCTAMC  1001  .NO.NOCrEAC  15. aO)  .NDF  .NDTA. 
«N0rAA,N0r0AM(5t  .NOFMO. NDF  Ml  ,NOVT  .NCTAMC  lOOl  .N0TAU1  .NGTAWI  (  lODi  , 
•N|O0T(5l.NlTer(5l,NK(LL(5l.NK|LLOl5>.NKlLLI(5).NK|LLT. NMDC  T  i  7  )  , 
•NMIN(7).NMSUPT(7).NMT,NOe,NOOtVT.NOBTPa,NOir.NOSTAT.NRAD<5l. 
•NRAOrOiaO)  .NRAOrtt  toot  .NRAI  (5>  .NRBA.NRrB0Tl5i  ,NRrBITl5l  , 

•NPriROC  loot  .NRS.NSPLFT.NSTICNCSOI  .NSUB(5)  .NTCOLI  1001  .NTGO.NTCIP, 
•NTGTYPC  1  QOl  .NTLCirc  101  .NTLOST  .NtTTCSc5l  .NTTTM0(5)  ,NTTTRP(5»  .NVAP. 
•NVFAEAC  171  .NVUtOn  10)  .NNCPVC  10)  .OBX  .OBV  .OBYPRT  .PATRAD(5l  .POLCF 
COMMON  i»H0l5,5)  .P  PE  AFC?)  .PRBI  TY  .PROTWOC5.7)  .PRKL0(5,7)  . 
«PROB]L<e'40)  .PRSM0Q(5,7)  .RAOrAC.RANQPRCBNOl  .RCLRND(5)  ,RCLSUB(5)  . 
•REP(IO).RN,ROTDHPX(lO.IO),ROTOMPY(|0.»Ol.RSPC5).S<lOO».SCCON(7). 
•SICAO(50)  .SIGAR(50)  ,SIOBOI501  .SiGBR<50)  .STATALlS.SPl  .SMPOELI  lOOi  , 
•SVMDOrtS.  Tl  .SYMDir(5.7l  .SYM0IS(7.7)  .SVMMAXCJl  .TARHT(5l  .TARL(B)  , 
•TaRRA0(51  .TARH(5)  .TOairvc  10)  .TOTDELC  100)  .TCTOVL  .TOTSPD, 

•TOTVEL  (  100)  .TOTVLa.TOTVSV.tOtXOL  (  100)  .TOTYNHI  lOOi  .TOTYOLl  1001  . 
♦TGTYSV.rHeTA,THRSlG(5.51  .TIHEMVC  100)  .ThBRDiS)  .TMBRl  (5)  .TMDLCF, 
•TMSHP(7)  .TMTOrR(t30),IOTSlM,tRAVTM.)(CYCLEl71  .XDMP(  10.  10)  .XFIX. 
•XMAX  .  XMlN.XOOEFteOl  .XOVPC  10)  . 

•XROFOtSOl  .XROADCI  I-l  .XSWATH(501  .XWIOTH,  YDIVI  1001  .Y[)MP(  |0,  101  . 
•YUENGTH.YODEFieOt  .YOVP(  10)  .YROF  01  301  ,  YROADf  I  1  1  .YSWATHfSO) 

iNO-i IMINE- 1 )/60tl 
K  «  MOO {  I M I Nt  .60  1  -  I 
ircK.rQ.-ti  K«59 
I  /  (  N  G  T  I  '  0  0  10  COO 

10  0  I  •  1 

KABOONl  lUOl«*kABOOM(  |M0'  .OR.SMIF  Tl  !  .K) 

RETURN 

200  lOET-SHiniKABOOMtlWO).  K1.AND.I9 
RETURN 
END 


Figure  30 
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SLJBROUMNt  BORMA.NI 


SueROUl  I  NE  SORl 


P  U  R  P  (J  s  r 

TO  VjORT  a  vector  into  increasing  order  EPOM  All) 

A  MAT  QE  TYPl*  REAL  OR  TYPE  INTIOER, 


USAGE 


CALL  SORlfA.NJ 


DESCRIPTION  OE  PARANETERS 

A  -  THE  NAHE  or  iHt  N-VECTOR  TO  BE  SORTED 

-  ir  A  IS  TYPE  REAL  THEN  EACH  Of  ITS  COMPONENTS 
•  MUST  BE  IN  normalized  FORM. 

N  -  THE  NUMBER  OF  ELEMENTS  IN  THE  VECTOR  TO  BE  SORTED 


REMARK 


THE  PROCEDURE  REQUIRES  TWO  ADDITIONAL  ARRAYS  lUtK)  AND  ILTKI 
WHICH  PERMIT  SORTING  UP  TO  ELEMENTS  THESE 

ARRAYS  ARE  SUPPLIEO  BY  THE  SUBROUTINE  WITH  K-  16.  THIS 
ALLLOWS  sorting  A  MAKIMUM  OF  I  3  I  0 ‘M  ELEMENTS. 


METHOD 


AN  EFFICIENT  ALGORITHIM  FOR  SORTING  WITH  MINIMAL  STORAGE 
BY  R  I  CHAHO  C  .  SI  NCL.ETON 
PREPARED  FOR 

INSTITUTE  RESEARCH  AND  DEVELOPMENT 

STANFORD  RESEARCH  INSTITUTE  PROJECT  3e753)-l3a 

SEPTEMBER  I960. 


INTEGER  A(N),IU(I6».IL»16II.TT 


Figure  30.  (Continued) 


I  F  (  T  -  A  (  K  i  » 
105  A  ( •(♦  I  I  •  T 
00  TO  90 
I  I  0  RCTUWN 
£N0 


(Continued) 


ISSSSBSEE-!* 

t  1 


SObHOo  '  1  xr  L  00("i 


■ 


„  ^  »  1  (  iO  1  .  »  1  "P  '  «  '  ■'0  '  ■  *  ‘  ' 

co-HON  ‘  1*  '  t  O?joi  '  *H10LC  .  •^rvPt  10.  .oer*t  . 

•alnoi  t  .»M01"P'  >0.  OCF«|°0.  .DPFy.eoi  .OEtAtni  100.  . 

Vo?«o"MOo'.SHP^x..<...o..o«Pny..o..o. 

:rsTp::;;”o"A;u;!BE-:.;oi;.ooo.;.poMPp.-^ 
;;"^:^B:rr.;:-rp;i-"  -oBo.iujocFi^o,..-^^ 

toFOPB......oer^ 

.bOCE  b'FAliO.  NOtAM?Uo.  .BOtAMT.NOIAHl  I  100.  . 

•  NCr  AA.NDFOAP.S.  .NOF  °  °  ’  n  ,  5  ,  N«|bL  1  H"  .  MK  It  U  T  .  NHOt  I  ■  7  '  • 

•  Nioel.^.  .NllBI.^..  .NKUL.il  .NB1LL0.5.  NBILL  ’  . 
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E  TH-  T  aRW  1  Tt  T  1  4a  .  .£1  VAl 
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return 
End 


Figure  30,  (Continued) 


90 


70 

•  C 


•OUfP»p,7,  o,otj“^  *'•'''“’  -  OIBOISC  lio^ONMl'iff^''*"’  ■“'‘•AT^.’li.o, 

-  . . . 

•IToiPg,,  9,  ■  J0»  .  ISVLST  iir2«  71  tRTr»p 

•*<108?.  5j  niror.J  ^^^®-*^OrMr,NOvr  Mrr*.j.  wnr* 

•  NH.N,  7,  -  JI'll-l-Sl  .NAULli.  5,  .NOr^MI  ,,00, 

•''"Aoro.po.  .NRAor  r  M  on  i  ’ ^  •  "oe  r  P^  >1;.^ '  *•  *• '  •  ""“E  '>■''' 

■  'nsnp,  ,,  ,„,q'  "S''>'5  il  ,  r  IN£„„,  ,  “®  iMpII''”'  '  •  fOTrOL  I  1  00. 

•'"*«.«"iN.,ooer  in?  ;  “'®'"-"’*vtM  .(;  r, <5-  -'"O.rr 
•«»oro.,o  .aroao  f?  ‘''‘'‘•E‘’'-'‘>"“'io.,o.,,m.' 

'O-iOAN  ■>‘’1  6J*»..J,, 

>  0An>  0 

•  ”  ■  N  I  0  '  r  P  I  I  ,  , 

iNr . I NtoE  r iNor  , 

L  •  I  wr 

apr.'“  "  '■■I'. 

8»EL.ARtt ,0, 

SCEP.ACtPii  .101 
*OPf  l-AEI  < INr. , ,, 

E  '  I'*!.  -AEI  <  InT  .  I  IT 
y  'XOOCI  01  I ,  00 
NO..OP.Nor.K,.?°. 

•LHRdfai  ^  0««i.. 

r  j  I  -  1 59a6,N  . 

osspr;r'  s'*oep.ino. 

''^o-soR,:;;:;^;-'’‘E.-Nor,,.4 

CO  TO  80  iir,.r.R,.,,,,, 

«o:i:°'EH..,Nt,  *">.<.  IT,  ,,p 

7?  ’OErpAoi iNt  I 

'T ■ MOPI;  t  ,  „ ,  ,  '  ' 

*  >  •M0PI7,0EN0P  ”  '  °ETl  (  INI  ,  .ot  t  N,  I  „,  ,  , 

BI-*tPr,oeNON  IMIll/r 

"SST*-?  -BIGCai  , 

OSiP.p  IPIGOIBI I 


•  ^ • I  0- I  I 

.  ^  •  I  0  » 

^0  *5  0 


♦f  ft  •  8^ 
•^•CTw.oa 


Figure  30.  (Continued) 


152 


SSPD«RSSP*DSSP*BHf:L 
PN*RANr < DUMMY r 
I r ( RN . L  T  . SSPO 1  I  0AM 
PRS 1 T  t  «SSPO 
RE  TURN 
C  NO 


Figure  30.  (Continued) 


4 

t  T%H-V 

v'*' 

"'*  ""A 


*^i  if 


5si;i'SMAfei 


DIMENSION  TM M  30 »  ,  I POS 1  1  30  I 
IKINDrA.OT.Ol  GOTO  50 
I M  i NOK  a . G1  . 0  r  GO  T  O  50 

I  F  (  NOfl  TP?  .1,  T  .  I  6  OR  NOei  P?  .  Gt  .  1  B  I  GO  TO  ?D 
( F  ( Noa IP?  0  r  .  I  6 1  GO  TO  15 
INOF^  «  I 

GO  TO  eo 

C 

C.  SAVE  THIS  INTRUDER  FOR  THIS  AREA  Bt  TURNING  ON  A  BIT  IN  ISVIFA 


15  CALL  S T  I  NT  {  I  S V  I  F A  ,  I SA VE  .  I T  .  I  8 M  .  KOF T T N .  I  ) 
NDFA-MAK0(I T .NOFAJ 

Call  tgtmov 

16  DO  1 8  J* I . NOr HO 

I  r I NDEFE  A  M  T  . J )  , L  T .  n  00  TO  10 
NOr  ‘NOEFE  A (  I  T  ,  J  M  I  00 

ir(TMTOFR«NOFJ  .GT.O.O  ANO.TMTOFR(NOF) .LT .9000 
t  M  T  OFR i NOT  )  *  0  . 

IB  CONTI NUE 
RETURN 

aO  CALL  TO! MOV 
RE  T  URN 

50  UO  60  1  -  I  .  I  30 

I POS (  I  > -  I 
TMt  M  -TMTOrP'l  1  I 
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D  0  9  0  J  -  I  .  1  3  0 
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I  POST  I  1  •  I  POS  t  J  T 
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SAVE«TM(  1  ^ 
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TMIJI-SAVE 
90  CONT INUE 

I  F  (  TM U  »  . GT  .  T R A V TM T  00  TO  laO 
100  CONTINUE 
I  aO  NUMCNT-M!  N  0  ‘  I  .  I'S  0  I 

I F  (  NUMCNT  OT  ,  1  I  00  ro  I  50 
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NOr  A .HAXOI  IT  .NDfAl 
GO  10  16 
c 
c 

I  50  NUI1«NUMCNT  -  1 
1  SHOT -0 

DO  1000  H  I  >  I  .  NUH 
M- I POS I M I  I 
7T0l-TM10rRI«l 

I r I  I TOI  . GI  .  9000 .  I  00  to  1000 
I T  .TRAVTM 
TRAVTM'TIOI 
CALL  tOTMOV 
THAVIM«1TT101 
iriM.OT.lSOt  GO  TO  750 
IFIM.Lt.lOll  GO  TO  500 
C 

C  THIS  IS  A  OEFENOCR  FIRING  AT  AN  INIRUDER 
C 

NOr  «M -  1 0  0 

1  F ( NRAOf  0  I  NOr  1  . L  t  .  I  I  GO  TO  900 
NDTYP- IMTOEF (NOF I 
00  300  1*1,5 

I  PRR  *  1  1 0  T  PR  I  NOT  YP ,  I  I 
ItllPRR.Lt.ll  CO  TO  1000 
00  sao  MS*i,Ntco 

I  F  ( NTGT YP (  I  I  S  I  . NC  .  I PRR t  GO  TO  BBO 
DO  S70  K- I ,NOFA 

CALL  ST  I  NT  I  I  SV I F A  .  I  I S , K ,  I B I  T  , KOF T TH ,  3  I 

IFlIBIT.LT.Il  GOTO  270 
I  F  I  NDE  F  E  A  I  K  ,  NOF  I  .  L  T  .  !■  I  GO  TO  2  VO 
GO  TO  3  ?!  0 

270  continue 

290  CONTI  NUt. 

300  CQNT 1 NUC 

CO  TO  1000 

320  T MT OFR ( M )  .TUBHO I  NOT YP 1 
K  I  .K 
1  DAM  *  I 
I  S  H  0  1  ■  I 

CALL  D I RF I R (  I  DAM  I 
I F I  I SYMP ( 2  I  . CT  . 0 >  CALL  SVMOET 
NRAOFO ( NOF  ) •NRAOFDI NOF I  -  I 
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I  F  (  I  RUNS  .  NE  PR  1  NT  I  GOTO  3M0 
Ak I L -BH  Ml SSEO 
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TGTYNWillSt-TGTYNHIIISMIOOOOa. 

I  F  I  NOT  AMT  ,  GT  .  0  MC  ALL  UNIT 
LEFTIN-LEFTIN-I 
TGTVELMISI-0. 

T  MTOFR I  I  I S  » -9999 . 

CALL  STINT(l5VirA,IIS.k.lBn.kOTTIN,2) 
INTYP-NTOTYPl I ISl 
NKILLDI INTYPl'NkILLOl INIYPI'I 
Nk 1 LL T *Nk  I LL T  ♦  I 

IFINITTCSI INTYPI .GT .01  NSPLFT-NSPLFI-I 
k  1  •  I  I  S  V 

k  F  I  X  •  0  .  0 

IFINTTTMOT INTYPI .OT  OICALI  OIVSEI 
9  7  5  J  •  0 

DO  996  I  *1. NT  GO 

C  ALL  SI  I  NT  I  1  SV  I  r  A  .  I  ■.  k  ,  I  Bl  T  .  KDF  T  I  N  .  3  I 

I  F  I  I  B  I  I  .  L.  T  ,  M  GO  T  0  995 


N  N  r  I  H  0  I  I  1  .  N 
i r ( Nfir I  HO (  I 
TMTOrH( 1 > .0 


Hf  IHDI  n  ,  1 
t  'NROAtHBS.HSO.HOS 


tas  CONI  I  hue 

I F ' J 1 50 , 990 


THIS  I 


intruder  fIRINc  AT  A  DEEENDER 


500  N I  NT  r -NIGT YP( Ml 

I f  I  NRAOF  I  I M I  . L I  .  I  ) go 
00  600  1*1,5 
I  PHH-I.  OroPR  (  N  1  NT  I  II 
IF!  IPRR.LI.  II  GO  io  II 
00  590  J- I , NOrWD 
IF!  IWTOEI-IJ,  .me  ,  IPRR, 
00  580  K ■ I  , NOE  A 
.1  (•  INDtEEA  IR  ,  Ji  .  L  T  .  I  1  ( 
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I  F I  I  B I  I  . L  T  ,  I  I  GO  TO  5£ 
GO  TO  600 
580  continue 
590  CONI  I NUE 

600  continue 

GO  TO  1000 

600  ^MTOFRlMl.lMaRiiRi^fjj 

I  0  AM • S 
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PRINT  ROOS.M.NINT 
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HOT  TP. I HTOEF (  Nor I 
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750  I  VAP-M-  I  00 

I  F  !  NVI.  I  DF  I  I  VAP  )  ,  L  T 
CALL  NO FIRE 
IMTDFRIMI-TDBIFVT I 
NVLIOFIIVAPI-NVLID 
I  S  H  0  I  -  I 
GO  10  990 

900  T M I  OF R I H  I  -  999 0 . 

0  0  T  0  1  0  D  0 
990  I  F  I  I'MI  OFR  I  M  1 
00  TO  50 
lOQO  CONTINUE 


L •  8H  HIT  HIM 
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or  iravtmigo  to  iooo 
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If  I  nob  t  p0  r  I' 
end 
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fnHM.'‘N  JMARAI  ,JSll  0St7»  .KAB00M(S^7l  .PDfTINl  lOOl  .KNPS.KOUNT  (7l 
l»Ol  .Kl  .lC»  opt  .1.  CfTT.  L  OF  OPR  I  5 .5>  .LEfTIN.MA0lV.MirBT»7P  . 
•HOOf  .MTr  AISOI  .MUSm.NAP.NCTAmi  100)  .MO.MOCFEAI  I9.?0l  .MOF  .MDFA  . 
•MOFAA.NOfOAMt*)  . NOFWD  . NOf  MT  .MOVT.MOTAMMOO)  .NQTAUT.NOTAMI  I  IQQi  . 
•NI0flTi5».MIT8TiS..NKUll5).NAILL0l5).NlClLLn5).NKlLLT.MMDtr(7l. 
•^n\H  7i  .NM5WPT  17»  .NMl  .NOB. N08E  VT  . NOB TP? . NO  I  T  . MO S T  A  T  . NR A 0  <  S I  . 
•NMAOfO«?0» .NRaOF I « 100) .NPAi I5» .NPBA. NRF BOT ISP.NRFBITIS). 
•NRr.POPlOO).NRS.NSPLfl.NSTICKl50l.NSUBl5).NTCOL»lOO).NTO...NT01P. 
•N’OT»PltOO).NfLC?fMOI.NTLOST.NTTTCS<5).NTTfMOJS).NTrrRPJS».MVAP, 
•N.r  At  A«  iOl  .NVL  lOF  J  |t>>  .NWEPVI  IQ)  .OBK.OBV.OBYPRT  .PATRAOIS)  .POLCF 
COMMON  PM0eS.SI.PPEAfc7».PR8lTy. PRO T  NO (B.7)  .PRKL0t5.7»  . 

•  PPOBiL  lewQ)  .PRSNOOI5.7)  .RAOFAE  .RANCPR(B«tO)  .RCLRNO'S)  .RELS0B(S>  . 
•PtPl  I0>  .RN.ROrOMPxi  10.  IOl  .ROTOMPri  10.  tO)  .HSPlSl  .51  lOOi  ,SCC0Ni7l  . 
•SiGAOiSOt  .SICARiSO)  .SIOBOI50I  .SICBR'SO)  .STATAi  (S.5?»  .SwPOCl  i  I  DO’  . 
•SVMOOF  IS.  71  .5TM0IF (S.7)  .SY MO  1517.71  .SVMMAKl  J»  .TABhTiSi  ,TARLIS«  . 
•TARRAOlSl . TARUIS) . TOBIFVl I Ql . TGTOEl  » 1 00) . TG70VL .T0T5P0. 

•TOTvCLi  iOQt  .TGTVL2.TGTVSV.T0TX01  i  I00»  .  TGTYNHf  100)  .TOTyOL  t  iOO)  . 
•1C)YSV.THETA.lHRSIG(S.S).TiMeMV(lOOi.rNBRO(5).TRBR|iSl.TMOLCF. 

iMTOrRi  IJOl  .T0TSIM.tRAV!M.<CYCLE‘7i  .XOMPf  SO.  tO>  .*Fl>;. 
♦•MA*.  «*i{N.YOOtFiPOi  .»OYP|  10)  . 

•rROfO«  J0»  .YROAOi  I  I  j  .YVWAIMISOI  .XwIOTh,  TQivi  100’  .  rOMPr  jO.  I0» 

'  FnOTm.yoOE)  <?0i  .  YOvP'  10)  .YPOFCi  TO  .vROAOl  I  I  >  .ySWAThiSO) 

A . OC • UBi 
KT^KlSAvtlSAYfl 
I  08  <  K  T  •  .  .  t 
N  P  •  N  0  B  ’  P  P 

IFtIRUNS  to  IPRINTl  mR I  TC  ( 6  .  I  000  I 
1000  fORMAli*  The  EIPLOSIVE  SMtEP  ROUTINE  HAS  REMOVED  f hC  •. 

•  • )  OL  L  OH  I NC  M i NCS •  > 

IFiLtFOPT  OT.MGO  TO  ?n 
>  0  I  ST  *067  * AL  NOL  C 

range • aw  I OL  C 
GO  TO  90 

?o  Ti.  oc  •OBY  »0F  rr  AE 

VD I  ST • YL  OC • RAOF  AE 
YSI -YLOC -RAOFAE 
PANOt •RAOFAE • 

su  K  T  •*(  r  •  I 

I  F  <  t  06  I K  T  I  . I  T  0  I  00  10  TO 

I  WORD-  I  06  t  K  T  I 

call  unpack 
lflNUBrP?-8)'*0.?0U.30 
^0  I r  I  OB  r  '1  Y  s  T  1  GO  TO  30 
CO  TO  e 0 
so  1C  I  -K  t  •  I 

IFMOBikTi  lT  0)  GO  to  so 
t  WORD •  I  OB  <  K  T  I 
CALL  UNPACK 
iF(N06tP?-BlbO.?OO.SO 
60  IFiOBY  CT  YOlST)  GO  TQ  ?00 
0  I  ST -ASS  I XlOC - OBX ) 

If  ILCFOPT  .01  -  I  )DIST«DIST*'?*«>lOC-O0Y) 

1  F  ( 0  I  ST  . GT  . RANGE  >  GO  TO  SO 
RN-RANF ( OUHMY ) 

I f  I RN . 0 r  . POLCF  I  CO  TO  SO 

IFclRUNS.EQ  IPRtNt)  W R I  T E  I  6 .  I  0  I  O  *  N OB T P? . OB K  . 06 Y 
lOig  FORMAT!*  OBS  TYPE*  '.IS.*  OB  X-  •.FB.?.*  00  V-  •.FB?) 

NMSHPr(N06TP?i-NMSwPI<K06IP?>*l 
NMOE  T  !  NOBTP?)  -NMOF  T  I  NOBTP?  i  •  I 
CALL  BOOM! tOET.il 
I  OB  <  K  T  I  -  -  I 
G  C  10  SO 


Figure  30.  (Continued) 


?00  DO  ^50  I • I .uroo 

tr(TCfVNWM»  r.9«969  )CO  TO  ^50 
irtNCTAWMI.NC.NCTAMIISAVeiiOO  TO  ?9C 
SWPOCL  (  I  1  •fU^OCL (  1  »  *  THOLCr 
OCl  A1H<  I  I •THOLCr 
TOT  ve  L  <  I  »  *0 . 

850  COM^tMUC 
OaK«KLOC 
N0aTP2«M9 
OC  TUPti 
tHO 

Figure  30.  (Continued) 
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•*LS  •'  c  AN^lnRl  IQI  .ARCL  lb  ?l  .ARCRl^O)  .AMIOLC  .ATVVPt  iQl  .OB^'Al  . 

•  on  Hill  .ocn  .oc»  RAO*^»  .otruisi  .OE»*«?o»  .oc»  vt^o»  .OClathi  ioo  . 
•Off-i  10  .01  TFAE  .DIRaiki  iOl  .OIRDIS'  100*  .OnP|  Ixi  |0.  lOi  .ONPl  iri  iO.  lOi 

•0U0PRB>  1  >  .OJOEl  .C  I  i*>  i  .  iO.  lOtSUP.  iORl^O  .  .  ICNO. 

Ml^.t*l2Nl.tN0rA.|NrinriM.  108(50001.  iR0.1>*R:NT.  Iff  NK«7>.!RTriR. 
•(RuNS.lSA^E.ISBi.lSvirAiJ0>.ISVLST.l?rn»><3«.iSvff.il.|TrROff. 

•<  T0'PRi5.5>  .  IVAP.  IVCL.  IMORO.  lUTOCrcaO'  .  latTVAffl  10) 

COHHON  JHARKI  .JSCLOStll  .KAB0  0n(5*«7l  .KOriTNl  100)  .KNRS.ROUHI  17) 

•*  tSAVI  lOO*  .Kl  .LCfOPt  .LCr  IT  .LOrOPR(5.5)  .left  m.HAOIV.RIfBT  (  7)  . 
•PODt  .HTrA-501  .RUSH,  NAP.  NCTAUI  100)  .NO.NOEFfAl  15.90*  .NOF  .NOFA, 

•NO*  AA  .NDrr>An(5>  .NOrMO.NOfMT  .NO»r  .NOTAMI  I  00)  .NOTAWT  .NCTAWI.i  1  00*  . 
•NltJHn5>.NMB)(5).NKItL(5).NRlLLDl5).NK|LLI(5J.NKILLr.NN0CTl7 
•NHINI  7  I  .Nr«SuPT  (71  .NRl  .NOB.NOBEvT  .N08TP9.N0  1  *  .ROSTAT  .RRAD(5)  . 
•NRa’oFOi^O*  .NRAOr  I  (  100*  .NRAI  151  .  NRBa  ,NffrB0Tl5)  .NRraiTlB)  . 

•NR) IRQ  tOOt.NRS.NSPlFI  NSriCK(50l.NSUB(5).NrCOL(lOOl.NrCO.NTC'P. 
•NH.,ItP  10  0)  .NTLCIFI  10)  .NTL0S».NTTrCSi5*  .NfrTRO'5)  .NTTTRP15)  .NVAP 
•NtfF  ACA'  *0  .NVL  trri  10)  .NHlPVI  lO)  .OtV.OBr  .OBVPNT  .PATRADI5)  .POLCF 
rOHHON  Ph0«5,5»  .PPr.  AF  IVP  .PRBltT.PRO»NO(5.7)  .PRKLQ‘5.7)  . 

•PROBU  >8-0)  ,pRShOO<5.7i  .RAOrAE.RANCffRiB*«0)  .RrLRN0l5)  .ffELS08<5 
•REPt  10)  .RN.ROTONPXt  IQ.  >0)  .ffOTDRRYI  10.  10)  .RSP(5l  .$>  100)  .SCCCN)  )• 
•SIOAO15O)  .SIGAR15O1  .5t0B0i50)  .SI08R(50)  .STatAL  (5.59)  . 5MP0CL  (  1 0  0 •  . 
•5rHD0F  (5.7)  .SYRDIF  .SrH0IS(7.7)  .SVMRAK)  3)  .TARmT(5)  .TARL  (5*  . 

•IARRA0'5i  .TARWt5l  .TUBIFvi  |0)  .  IGTOCLI  100)  .TCTOVL  .TCTSPO. 

•IGTvEl)  1001  .  T0TvL9.t0Tv5V.T0T)(0t(  lOO*  .TGTyNHI  100)  .TOlYOLl  100)  . 
•TGItSV.Dlt  lA.  lHRSiG'5.5>  .T|HE«V(  lOU)  .IHRffO(5)  .THB«|  (5)  .  iHOl  CF 
•TNSN‘»(7).*MTOfR(130'.I01SI«.)RAVTff  aCiCiE(7-.iOHP  IO.IOi.a).« 
•XMAI.AMIN  COOEF<(;0).XOv)^(tO). 

•«ffOrO(  30I  .MROAOI  1  I  )  .XSMAIHI50>  .IIWtOTF<.  rOIVt  lOO)  .rONP(  10.  tOi  . 
*rt£NGF)).vO0kF  i90).*OvP«  iO).VROFO(30)  .yROAO<  tl  )  .tSnaTh(50i 

00  600  I • I .NTCO 

lF(T0nRWlll  OT  99990  >  G7  TO  600 

I r ( T G T VC L < I ) . C I . O . )  GO  Fo  500 
OfLAlMi  I  l•OCLATn«  I  )  -  TRAVin 
t r ( DC L A  IH 1  I  >  . OT  0  0000  I  )  00  JO  550 

f  G  T  VC  L  (  I  >  •  T  C  T  SPO 
OT  H • ABS I  DEL  A  T  n (  I)  ) 

OCLATNI  I  >  -0  .  « 

TOTYNWf I )«rCTrNWl I l«rGTSPO«DTn 
riREMVt  I  )>T|nCNV(  I  I  *01)1 
1 r ( T MT orff ( I ) , CT . 9000  )  GO  TO  600 

THTOrRl I (•TRTOrRl I l-OTH 

iriTNTorRin  l  t  .  o  .  )  t  m  t  or  r  i  i  i  *0  . 

GO  10  600 

500  TOTYNMI I )«TGTVNM( I )*TCI£»0«TffAVTR 
TinCHV( I )«rinERV( |l♦1ffAVTH 
550  I r ( THTOrffl i ) . GT . 9000  )  GO  TO  600 
TMTOFRI  t  )»THTOrR(  I  I  -  TRAVTN 
IFiTMTOFfflll.Lt.O.)  fMT0F«(|)-0 
BOO  CONTI NtC 

iriNOruO  lit)  GO  TO  750 
NC  NO  X  NOT  )i40  »  I  00 
00  700  I  -  i  0  I  . NC  NO 

I r I T H T OPR « I ) . G T . 9000  1  GO  TO  700 

TNTOFRI  I  I  •TNTOrRl  |  )  >TffAVfN 

irtTNTOFRM)  Lf  n.i  inTorffii)«o 
700  CONI INUC 

750  iriNVAP  lT  I)  RCruRN 
NC  NO • I  9  0 •NV  AP 
00  900  I • I ? I . NCND 

IPllNTOFRlI)  GT  9000  )  GO  TO  900 
TNTOFRI  1  l•rNTOPR(  1  )  -  travTM 
IfiTnTOPRili.Ll  U  )  TNrorPM)*0 
900  CONT I NUC 
RETURN 
C  NO 

Figure  30.  (Concluded) 
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SECTION  V 


SIMULATION  MODEL 


SEMAC  is  capable  of  simulating  the  passage  of  up  to  100 
intruder  targets  of  five  different  types  through  an  engagement 
area  defended  by  direct  and  indirect  fire.  The  program  can 
consider  up  to  50  sortie  aimpoints,  32,767  mines  of  seven 

indirect  fire  volley  aimpoints  with  five 
•Iw  indirect  fire  munitions,  and  20  defenders 

fiye  different  direct  fire  weapon  types.  The  intruders 
can  be  in  any  formation  desired,  and  are  masked  from  the  de- 
fenders  in  selected  portions  of  the  engagement  area  by  terrain 
shielding.  The  intruders  are  capable  of  return  fire  and  may 
employ  a  variety  of  sweeping  techniques. 


TABLES  AND  ARRAYS 

three  probability  functions  employed  in  SEMAC  are  en- 
tered  as  tables  which  have  been  set  at  a  maximum  of  three  sets 
Of  eight  pairs  of  values  for  each  target/mine  combination 

probability  inputs  are  stored  in 

RAMPoi  SIS  '  range  values  are  stored  in 

^GPR(840).  The  first  eight  entries  in  each  table  contain 
the  probabilities  of  mine  detection  and  corresponding  ranges 

frrst  target  type  and  the  first  mine  type.  The  second 
contain  the  probabilities  that  a  detonated  mine 
of  the  first  type  will  damage  a  target  of  the  first  type  and 
corresponding  ranges.  The  third  eight  entries  contain  the 
probabilities  that  a  mine  of  the  first  type  will  detonate  when 
encountered  by  a  target  of  the  first  type.  The  next  three  sets 
Of  eight  entries  contain  similar  data  for  the  first  target  type 
and  the  second  mine  type,  etc. 

In  addition,  allocation  is  made  in  COMMON  locations  for  a 

"  arrays.  The  COMMON  statements  which  are  used 

in  SEMAC  are  shown  below. 


f  CtiMON  »CEP(  S  .  ^  1  .  »0£  <>  r 
**LN0LC  .ANCInPI  1(3)  .**tL 

•DfrMTlfll  n£»l  I*)!  .OEfff, 

•nr  p  .  I  0  I  .  or  iF»e  .  0  I  (»«r«  ( 

■cunp»»l 71 .OlOCt .£115.5 

•  I  I  s . IMI  ME . iNOr, . I  Nr  I nc 
* [PUNS. ts»v£ . isbl , iswir 

•  1  TGrPNI5.5i  .  I, EL  , 

COMHON  JNPPm  .  jSCL  OS  I  7 

•KTSPyi  1001  .Kl  .LCrOPI.L 
•POOE.N'ritisoi  .  HUSH  .  N*P 
•NOFAA.NOrOANISl .NOFHO. 
•N I  DOT  I  SI  . Nl  rST  15  1  . NK IL 
•NPINI71 .NNSHPT i 7i .NPr . 
■MP. nr 01201 .NP»o>  I  I  I  001 


SOI  »c  I  '  5 . 5  .  ■«  1  .  *  I  I  20  I  .  *  I  NP  t  »  1  50  1  AINP 
15.21 .APEPI^OI .AWIOIC .*»rvPi lOi . oar AE 

Oisi .OErHiSi .orr«i2oi .OErYi2oi  or  LAIN 

lOl.OlPOISMOOl.  DNPl  I  «  I  I  0  .  I  n  1  .  DNP  1  I  V  I 

•  S'  .  10.  lOISOP.  I  OP  120. 15. 21.  [END 

•  I  .  I  OOlSOOO  1  .  I  PO  .  IPNiMt  .  IPNK  I  7  1  .  I  Ptr 
•I JOl . ISVLST . ISYNPl ii . isrP. I T . I TEPOP 

I  HOMO .  IHTOCri20l  .  IHTVAPi  |Sl 
1  .NAM00NI5N7  1  .NOrifNI  I • 0  I  . K NPS . K OUN I  I 

crrT.LoroPNis.si.LCrriM.nAOiv.Hiroii7 
.NCTANI  I tOI  .NO.NOErCAl  IS.JOl  .NOr  NOf  A 
Norar .novt .ngtahi loti .McrAHr .nctani i i 
LI5l.NKILL0l51.N«ILlll«I.N«ILtI.NN0EI 
NOM.NOM£»t .NOPtP2 .NOI T .NOS'AT .NPAOISt 
.  NPA  1151. nnsa . NNraor 151 . aar mi t is  1 . 


MOO' 

10.10 


0  0  I  . 
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•NH»  JWlil  100)  .*•»». NSPLf  T  .NST  ICKi^Ol  .MSU»c5*  .H»COL  I  100)  .WTOO.NTGTP. 
••DOT  »P»  iOO)  .MTLCir*  I  01  .MTlOST  .NTTTCSt%)  .NrTT««0l9)  .MTTTHPl^l  .NV«P. 
•MvrA£A4  tO)  .NVLtOF  I  iO»  NWtPV'  IQl  .09ll.0av.OtTPPT.PATtt*0tS>  .POtCf 
COMHON  PHOl%.^>.PPCA#(7i.PRBITf.  RRO  TM0I9.7)  PPICL0<9.7j  . 

•PPOeiL  tJJ«*C)  .PPSM00l5.7t  .PADFAC  .RAMGPRtBHO)  .PCtPNO<b)  .HClSUB^G)  . 
•«CP« I0» .«N. ROrONPI I lO.lOi .ROTOHPVIIO. IO».RSP«5i .S» 100) ,SEC0N«7» . 
•SfOADibO)  .SIOARIGO)  .SIOBOf^Oi  .SI 09R( 90  »  .STATAL^5.S^»  , SMPOEl  «  1 00  »  . 
•SVMOU)  fS.71  .StWOIf(S.7)  .STnOIS<7,7l  . SVHMAX  <  Si  .TARMrcSl  .TARL'S)  . 

• fARRAOiS) .TARWI5) , rOBirvi )0l .TCTOCLi 100* . TOTQVL .tOTSPO, 

•TorvEL)  ;00i  .TOTVL^.TOTvSV.TGtXOLI  lOOl  .TOTYRUI  lOO)  .  rO»VOL<  10  0  I  . 
•»0TfSv.TMETA.TMRSI0«5.S»  .TIPERVi  lOO)  .▼ RRRD I S  »  .  T  HBR I  I S i  . THDL  C  f 
•:»*SmP(7»  ,  tMTOER)  ISO)  .  TO’SIR.  TRAVTN.XC^CLt  C7|  .XORPt  10,  lO)  .*F  I  *. 

•  VISA*  .MHiN.ROOErie'O)  .KOwPi  I0»  , 

•••-GI  J(SO).KROAO(t  I  I  .XSnAThI^OI  .KHlOrH.YOIVl  lOOl.VURPl  iO.lO) 

*».  VOOCF  l?0»  .YOyP'  lOi  ,YRO»  fJ*  SOI  .  yROaOI  I  I  »  ,  tSRATmiSOi 


i 


All  variables  which  appear  in  these  statements  are  in¬ 
dividually  defined  in  the  List  of  Symbols  and  Abbreviations 
(Simulation  Model) . 


DISCUSSION  OF  SIMULATION 

The  remainder  of  this  section  discusses  in  detail  the 
coding  of  the  various  subroutines. 


Program  MAIN 

Program  MAIN  exercises  control  over  the  simulation  by 
calling  the  various  processing  subroutines  in  a  manner  defined 
by  the  program  logic.  The  first  executable  statement: 


•^RE  At) 


0 


initializes  KREAD  at  the  beginning  of  the  job.  The  next  state¬ 
ment: 


CAM.  Rl  AU  I  N  I  KR(  AU  I 


1 


transfers  control  to  Subroutine  READIN.  This  subroutine  reads 
the  data  for  the  first  case  (KREAD=0)  and  performs  several 
iteration  independent  calculations.  The  statement: 


CAM  StfiJP 
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is  the  return  point  for  each  iteration 
forms  iteration-dependent  calculations 


Subroutine  SETUP  per- 
The  statements: 


C*Ll  IIOAO 

f.  I  SOP  T  f  I  OH  .  HOB  • 

Cr»1S.EQ  III  GO  ^0  160 


transfer  control  to  Subroutine  ROAD  to  initialize  target  travel 
on  a  travel  path  segment.  Subroutine  SORT  performs  a  Singleton 
sort  on  the  event  information  array  [IOB(5000)]  to  order  the 
array  by  increasing  event  ¥  coordinate.  If  all  targets  have 
been  damaged  or  have  breached  the  engagement  area,  transfer  is 
made  to  determine  if  the  last  travel  path  segment  has  been 
traversed.  The  next  statements: 


<0  CAl.t  4.00PS 

IGTVSV-TGVi^ri  t  iSAVCl 
’  HO •  I H 
i  Stp-  0 

m  •  r *  ,  .  .  *  j  , 

!  HOHD  >  i  OH  >  •>  T  I 
CALL  UNPACK 

'tavPP  r  *00^ 


call  Subroutine  LOOPS  to  determine  the  next  event  and  unpack 
the  information  for  the  event.  The  statement: 


CALL 


provides  a  tr2uisfer  to  Subroutine  CKEVTM  to  process  all  time 
oriented  events  involving  direct  and  indirect  fire.  If  the 
event  target  was  damaged  by  direct  or  indirect  fire,  the  next 
statement : 


l•«rCMNkli^AvC).GT  9Gq90  I  GO  TO  IJO 


removes  this  target  from  further  consideration.  Otherwise, 
the  following  statements: 


i»<Tofvsv  Of  0  01 'OG  ro  90 

AfGAVl  ISVtST  l•KTSi*■  1S*LST  I-I 
GO  TO  30 
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determine  if  the  event  target  is  in  a  delay  condition  and  pro¬ 
vides  transfer  to  Subroutine  LOOPS  to  determine  the  next  event. 
The  following  statement: 


^3  lit  ro  .  le  .n  .IS  .le  u  7j  7= 

•80.  I  10.  100.771  NObTPi  c  .  7?  .  7g  .7?. 


provides  transfers  to  the  proper  subroutine  based  on  the  event. 
If  the  event  is  one  for  a  target/mine  encounter,  the  next 
statement: 


’’e  c«ii  rcrniN 


calls  Subroutine  TGTMIN  to  evaluate  the  target/mine  inter¬ 
actions.  If  any  targets  are  associated  with  other  targets  as 
a  group  and  if  a  target  is  damaged  in  this  event,  the  next 
statements: 


IFlNGfAWf  n£  I  AHO  ISTP  tO  CALL  UW  I  r 

CO  TO  110 


provide  transfer  to  Subroutine  UNIT  to  determine  whether  any 
unit  movement  of  targets  is  required.  If  the  event  is  one  for 
a  target/travel  path  boundary,  the  statements: 


c»Li  tvci. rc 
00  T  0  110 


calls  Subroutine  EVENTC  to  evaluate  the  target/boundary  event. 
The  next  statements: 

f'f  t»<ToTK0Li:SAVC>  Nf.OBM  O**  NTOlTP'IbAVf*  f4E  ..CTTfiOO  TO  liO 
C  *  L  L  t  MPSBP 
00  TO  110 


provide  a  call  to  Subroutine  EXPSWP  if  the  event  target  has 
reached  a  point  along  a  travel  path  segment  where  line  charge 
or  fuel  air  explosive  sweeping  devices  will  be  employed. 


164 


an  indiraSt  {"“‘voinj?  the 


•‘  r.;;;,:;.r"‘""'—"«  ■. ... 

r«ct  norif^c 
c  •!  L  •oow  t  OE  T  •  , 

' Nur  A  •  I 


on  for  this  event  to  i^ure  thai%ho  bit 

this  aimpoint  arrive  on  a  tiiJe  basis 

countered  a  direct  fire  area  j****®"  ®  target  has  en- 

statements:  boundary,  the  following 

If  '«0f  t  rUI  I'savt  ^  *g!  "O^  ' 

*ittf  IROl  ISRVC  ,  ,0 
THTOfRi I$AVEi«99«d 

tOB  JAA«0 

00  10?  J» I . 50 

10?  continue 

inr'’**  '  ’  “0  '0  109 

Nor A«nooi jAA . j  5i 

I  f  t  Nor  A  .  t  T  i  I  tior  A*  j  % 

00  TO  I  I  0 
«  09  NOf  A  «  0 


«„?  »« for 

target  from  any  consideration  bvdireJf;-  eliminates  the 
of  coding  also  determines  the  larceirji~ire  ™^= 
that  contains  at  least  one  intmdir.  Tte  Sex^staJS^JSf 

- - 

"oet  y ' . I  sag ( Moe; v  1 1 

f.  optional 

event.  The  next  statements:  detonated  in  the 


If  I  INOrsi  110.190 

I ^0  JAA«0 
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>  3b 
*«  0 


•^0  •*«0  ^•I.NVAP 

I  t  ‘  NVl  I  OF  •  I  «  1  I  HO  .  I  ‘♦0 

JA  A  •  I 

.  0  »<  ’  I  N  g  £ 

J  NOr  A«  JA* 


.  >  5‘* 


determine  if  all  ia^getfwhiS 

ors^ee^inrhave  been  damaged  or  have  breached  the 
minefield,  the  statements: 


1  *>C 


.  -J? 


I  r  I  NSPi »  * 

t.5PLrT.9'>^H4 

no  ‘ 

It  t  »  0  T  y  ►tu  ' 
f  ON  *  I NUi 
‘OTSPO- *0^0*1 


0  OP  KWHS  Nf 
I  T  9  H  ’  0 


WRS  . 

. I  ve L 


GO  TO  J  5b 


,  .  T  G  T  0  V  I 


set  the  undamaged  target  veloeities  to  normal  epeed 
Statement: 


The  next 


,5^  0-  0.  00  ’0  JO 


T  nnpc;  if  anv  targets  have  not  completed 
branches  to  Subroutine  LOOPS  if damaged. 

traversing  the  travel  path  ^  traversed  the  travel  path 

If  all  targets  are  damaged  or  have  trave 

segment,  the  statement; 


»  feC 


t  r  <  K  WPS  ME  * 


r, «i  TO  ? b 


JrEfrra^lrfer^SSr^ra/Lrrtalraftar^’’ 


C  A  I  p  U  ;  W  T  P 

tt  N0I'>  00  '0 


4-v>o  r«»sults  for  the  iteration 

call  subroutine  ^regui^ed,  branch  to  Subroutine 

and.  if  more  ^terations^are^requ^^^^,^^^  iterations 

haJfbSn^Wleted,  the  statements: 


<«£  AO  > 

GO  T  C*  S 
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transfer  control  to  Subroutine  READIN  to  read  data  cards  for 
the  next  case,  or  the  program  is  terminated  if  all  cases  have 
been  processed. 


Subroutine  READIN 


This  subroutine  reads  in  the  data  cards  and  performs 
initial  calculations  which  are  independent  of  the  iteration. 
The  statements: 


C  I  Hfc  SS  t  ON  Ot*v 
fHHfeNS;-iN  HO, 

P*  »  *  !  »  f  S  T  ' SH 


NMOSv  I  J  I 

.SfCOrfi?.  oHOBTPiei  .RAf«o^P 


9  I 


provide  local  storage  for  input  variables  and  initialize  the 
value  of  ITEST.  If  this  is  the  first  call  to  Subroutine 
READIN,  the  statements: 


RT  W  I  NO 

NRM(>6,lH80t 
I  *  I  w  PE  AO  .  I  0  !  »  GO  TO 
C  At  l  PC  PUNT 
90  10  DC  7  I  •  I  . 69  0 

PROP  I  L  M  I  •  0.0 
RANCPR II)  «  0.0 
7  CONT  J  NU£ 

N0«0 

00  0  J«  I  .  I  % 

00  9  I • I . ?Q 
9  N0£  F  L  A  I  J .  I  1-0 
L  C  r  0  P  T  •  0 
HAO  I  V  •  0 
00  9  1  •  t  .  5 

NPA I  I  1  )  *60  40  I  I  )  -  0 

TARRAOl I I-TARLI I l•:ARH( I l-fARMTI I l-O 
RCPi  I  »  •RCPI  I  •  >0  . 

DC  P I  t  i  • OEP (  I  • ? I  •  0 . 

NSUB  '  i  I  •  I 
00  9  J • I . 7 
SrwOOF I  I  . J I  .0  . 

9  S Y«0 I r  c  I  .  J I . 0  . 

00  10  (•1.7 

TMSnPi  I  I•SCC0N(  5  »  •‘SECOff  I  I  ••yCyCIEi  I  »*0 
00  ) 0  J- 1 . 7 
C  Svn0J9II.J)«0 
I  L  NO  -  0 


call  System  Subroutine  REPRNT  to  list  the  input  data  on  the 
output  device,  and  initialize  several  variables  at  the  begin¬ 
ning  of  the  job.  The  statements: 


^9  ICNO-  UNO-  I 
JNARK I • 1 
I  RONS*  0 
00  ?  S  1  -  !  .  I  0  0 
SI  OtLArHIIi., 
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00  d*i  J  •  I  ,  7 
1NT|«e<1»-0 


initialize  variables  at  the  beginning  of  each  data  set.  The 
first  card  of  each  subdeck,  which  must  be  a  title  card,  is 
read  by  the  statements: 


f<C*0<'«.'da00i  MOL 

ner.  onf‘H('  goon.MCi'  ispu' 

:  f  »  .  NPt.  t  I.  0  tifsfi  c*i'  t»i» 


DECODE (N,M,HOL)  is  a  Control  Data  Corporation  system  function 
which  provides  for  the  decoding  of  N  characters  of  Hollerith 
information  by  Format  M.  A  check  is  made  on  the  first  card  of 
each  subdeck  to  determine  if  it  is  a  Card  Type  999,  which  sig¬ 
nals  the  end  of  the  job.  The  statements: 

i 


uo  id  j* I . 

DO  J  0  1*1.% 

STAr*tM.Jl«0 
!8  C  ON !  J  NUf 

‘>0  WCADfM.goOO'MOl 
^OOJ  (OMh*T«0A|O< 

OltGDC  *',900J.HOi  •  INM^' 
iOc  I  F  ORma  T  M 


are  executed  next  to  initialize  variables,  read  a  data  card, 
and  decode  the  card  type.  Branches  to  the  appropriate  section 
of  coding  to  obtain  the  data  values  on  the  card  are  provided 
by  the  statements: 


.»{tN»»uT  CO  991  GO  TO  FUOO 
MiiNMuT  or  lOOl*  GO  TO  ^900 

GO  rotioo. ?00.  300. '•00.900. 600. 700. 00  0. 907.  lOuO.MClO.  1800.!  JOO.  .‘•<10 
.  >900.  1600.  1700.  1900.  J900  8000. ?i0C.c>?00. 8100  ^-OOI  INt’of 


The  following  sections  are  similar  in  that  they  decode  input 
data  on  a  particular  card.  For  Card  Type  1,  the  decoding 
statements  are: 


j 

I 

j 


>00  0£C0De  100. 9008. MOL  •NAP.NTGO.NTGTR.NOi  T  .nOSTAT  .  IPPINT  .SECO. 
*Nnr.H00C.NVAP.N0r«A.N0fu0.N9BA 
9008  f ORMA T < i *  . 6 > 9 . r  I  0  8.6I9» 

irtSECD  Lt  0  »  Sf f P-RaNT ( OUNHT I 

CALL  •ANSCTiStEOJ 
CO  TO  9  C 


i'. 
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If  the  value  of  SEED  is  zero,  a  call  to  RANK  (the  Control  Data 
Corporation  system  uniform  random  number  generator)  is  per¬ 
formed  to  determine  a  starting  value.  The  call  to  RANSET 
causes  RANF  to  start  with  the  value  of  SEED.  For  Card  Types 
2,  3,  and  4,  the  decoding  statements  are: 


?00  OCCOOCteO.OOOS.MOLlLCrOPT.viiNGTH.HWlOTH.tMCTA.DSOrL 
S0L  .  IKdOP.  lOISOP 

•co$  roRnAT(5x.i«.?rio.?.er9.?.Hi5.i?.i3> 

GO  TO  50 

SOO  OtCODC(60.900>«.HOL  INTN.NTGTrPlNTNI  .NCTAWtNTftil  .NC^AUIMTlni  . 
•TOTXOLJN’NI  .TGTYOI.  INTNI  .N1  .T? 

f  P  <  N I  .  t  T  I  I  00  10  50 
NT0tYPlNII«N? 

NC  1  Ak«  •  N  I  i  •  N  S 
NO  T  AM  <  N i  t  • NH 
T0»*0LINII*T| 

T0TT0Ll^t»•1^ 

op«A  T  j  ^  .  5*  .  1  5  .  I  I  .  I  ><  .  ;  5  .  ?r  :  0 
00  TO  50 

«Q':  OtCOOE<80.9005.MOL»M*P.TAPl'I’»P«.TAPM<|TYP  .TAPPAOM^YPI. 

•rAPMTi|TYP».TMBPIMTVPI.MHAM1’rPl.lL0T‘OPP'ITTP  *».l•^.5l. 
•NT  TICS'  1  TfPl  .NTTTHOt  I  TYPI  .NTT  t«Pl  1TyP> 
triNTrrNOi itvp» .nr.otNAOiv-i 
qoo*  rOPHA  T  I  OK  .  I  5  .  •*  !  0  2. TO  ?  I  5  .  «.  !  I  .  T  ?  5  « 

GO  10  50 


For  Card  Types  5,  6,  7,  8,  and  9,  the  decoding  statements  are: 


*>00  OCCOOC  <00 .9091  .HOL  l  IV  AP.  IPOAO.kOVP'  I  VAPt  .  YOVPi  IVAP)  .AYVVP:  IVAPI  . 

•NV^ACAt  IVAPi  .NHtPV'  iVAPl  .  lUTVAPi  I  VAP)  .NTtC  (Ft  IVAPi  .  TD0|Fv(  IVAP* 
909:  rOPNATt 101.^15. 3FI0. 2. HI5.riO.?l 
tvPO*irixiR0VP(  ivAPi*ioo.  I 

XOVPtlVAPl«FLOAI<tVPO«]00*IPOAO*ISiGNIl.lVPO)1 
GO  TO  50 

f<00  OCCOOC  100. 9090. HOl  MVAP.IUCPV.OHPitVtlVAP.IUCPVi. 

• DNP I  I  Y  (  I  VAP  .  I WCPV  I 
9090  r ORNA T  I  I  0 X . ? > 5 . ?r  1  0  ai 
GO  TO  50 

TOO  OCCOOrtBO, 9015. HOL  I  IVAP.  lUT  .ANGIHPt  IVAP)  .PCP(  IVAPi  .DIP<  IVAPi  . 

•NSU9<  lUTl  .PCLSUBI  iwTl  .PATPAO*  IWT  I  .RClRMDT  IMT) 

9015  rORHA T  < 5X  . ? I  5 . F5  ? . aF  I  0  ? .  I  5 .  IF  I  0 
GO  TO  50 

HOC  OCCOOC  (00. 9009. HOl  inrs.tgtovl  .TOTvl? 

9009  FORHAT<10X.I5.^FIO^l 
TCTOVI.  -  TOT  OVL  •  00  . 

T0TVL?«TGTVL^*B8. 

N«NRS* I 

RCAO(H.90  07l  (KPOAOf  I  1  .YROAOt  I  >  .  I'  l  .NI 
9007  format  ( BF  I  0  . ?  > 

CO  TO  50 

900  OCCOOC (BO. 9013. HOl  l|AP.NTfA(lAP».NSTIC«(IAP).AlHPTR(|APi. 

•AIHPTVI lAPl .YSWAThC |APi .XSUATH( IAPI 
•jlCt'  F  ORMA  T  <  5»  .  1  I  5  .  HF  I  0  ?> 

GO  TO  ijO 


The  value  88  is  used  to  convert  miles  per  hour  to  feet  per 
minute.  For  Card  Types  10  and  11,  the  decoding  statements 
are: 
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90  1?  '*'’’  •‘’'=*°'  '  “”  •S'Gei»(  I  .P,  .SIOBCI  1  API 

CO  TO 

90  0  9  FOBMAI  *;  y?'i  o"^;  '  ■'•Pf  > 

J^tJStLOSlMTi.OT.O*  CO  TQ  50 
00  90?  M*  I  ,  f^l^p 

irfnrrAini.CQ  htj  co  to  903 

90?  CONT InUE 
90  ?  J- 0 

905  REAOi**. 90071  fOR»i  I  «  .09ri  I  i  . 

00  9  i  0  t  •  I  .  •« 

MR|T£t?>  ORv'ti.ORrili.nr 
IEjj*1.£q  N5tlCH(M'i  GO  TO  50 
910  CONTINUE 

j  •  j  f  <« 

GO  TO  905 


JSELDS{MT)  is  zero,  the  nominal  X  and  Y  co- 

11b  (measured  relative  to  the  sortie  aim- 

^int)  are  read  in  and  written  on  Tape  2.  For  Card  Types 
12,  13,  and  14,  the  decoding  statements  are: 


•aoo  orcoor  1  so  .  90  1  0  .  Moi  1  Ml  "iY-ois-Mr  n  ,  , 

<010  fOPMAT,  ,  OB.  15.115  ?.  ■'IG  Ml.  J, 

00  TO  50 


For  Card  Types  15,  16,  and  17,  the  decoding  statements  are: 


TJOI  1  roSMAI  -“OUMr  I  MT  1  .  I  SNA  I  Ml  1 

I  NT  I NC  I MT  »  .  I 
00  TO  50 

CO  TO  50 

u  *0 

00  I  705  I  • >  .? 

NO • NO  «  I 

>  *f  TNI  •  I  r  I  M  I  M  vnsi  I  •!.  I  •  I  00  > 

?"yMP ’'S'ON'  '  •  l««"l  l-IPOAO. 

I  AVMS  .  I  f  I  ,  ,  ,,„5,  ,  .  J,  ,  .  Ulu  I  OADl 

rSDFo.NOi.rio.i. ,.,ms.,s,om: , . ixiMPi-Nur, 

’  ’05  CONTI  NOE 
00  TO  50 


I 


For  Card  Types  18 *  19,  and  20,  the  decoding  statements  are: 


I 


5 


j 

J 

!■ 

I 

f 

v 

I 


I 

I 


1600  OC  C  OOC  <  60 . to  I  6 . MOL  i  I  I  . J I  . 6nO 

•  I  .  J**  ,  ,  It .  J9  .  ^9 

6016  rotnAritl.tiait.rt.ti I 

I  f  <  . L  r . I  I  00  ro  to 

6M0< I?. 

ir ( I 3.Lr . I  too  TO  to 

PHOt I 3.^9l*PS 

I  r (  1  H  .  L  T  .  1  I  00  TO  to 

PH0( I H . JH I mp^ 

I r ( 1 9 . L  r . I  I  00  TO  to 

PHO I  I  9 . Jt I •Pt 
00  TO  90 

190  0  occooe 180.901  7. hOL 1  I  I  .Jl  .Ml  .CVI  .  ia.J?.N6.Cv6.l3.Jl.M9.CVB 
9017  rOPHAT < 9m . 31 3  I  9 . r I  0 . ^ M 
C I  M  I  .  J I  . i  1 *61 

CIIM.JI.8I*CVI  * 

I r ;  I e . L  T  .  I  >  00  T  0  90 
e I ( 1 2 . J? . 1 1 -Ma 
e  ( ( I  ? . je . ^ I •c  ve 
I r (I  3 . L  T  .  I  I  00  TO  to 
C I c 1 3 . 43 . I ) *63 
C I (  I  3 . JS . 8  I •CV3 
00  TO  to 

?000  OCCOOC C to . toto . MOL  I  MOr T VP . OC T L  I MOr T VP )  . OCf Ml  MOP T VP» , 

•OCPPAOf MOP fVPl  . OCPHT  f MOP  T  VP )  . TH690I MOP  T  VPi  . MPAQIMOPT VPI . 

•  I  I TOTPtf  MOPT  VP .  11.1*1.91 

toto  POPMAt 191 . 19 . HP t 0 . a.Pt . ^ .  1 1 .9  I  t  I 
00  TO  to 


The  following  statements  decode  Card  Types  21,  22,  23,  i^nd  24. 


?tQ0  OCCOOCitO.tOtl  .MOL  1  I  I . A  1  1  . AtC P I  . AOC P I  .  I f . A  I f . APCPt . AOCPP 
90  91  P06MAT lt« .  19. SP I  0 . ? .tS. 19. 3P 1 0  ^ I 
Alllll*COSiAll«.OI 7Ht96t 1 
APCPI  I  I  * -ARCPl 
AOCPI  I  1  1 •AOCPI 
1  r  I  I  8 . L  T  .  I  I  00  TO  90 
A  I  c  le 1 -cost  A  18*  0  1 7H99P9I 
ARCP (  1 e  1  -APCP? 

AOCPI I i I wAOCP? 

00  TO  to 

?^0  0  OCCOOC 160 . 9096 .MOL  I  1  . 4 . « . M . AC  V . A6CL I  . ACCPI 
9096  P06MATltl.Hlt.Pl0.6.Pt  6.P10.6> 

AC  I  I  1  . J.6*K • I  I wM 
AC  I  I  I  .4.6*Kl*ACV 
L  •  I 

IP ( K . OT .  I  1  L  *4 

A6CL I L . K I vAPCL 1 

lPlN.CT.il  ACCPIL .« I -ACC*! 

00  TO  90 

6300  OCCOOCl60.tO9S.MOLl  t 1 . 4 1  . K I  .  I  OP  1  .  I  6 . 46 . H6 .  I 0P6 . t 3 . 41 . R 3  tOPS 
90  9  3  P06MAT I 9R . 3 f  H I  9 . tX I  l 
I  DPI  1  I  . 4 1  « 1  I • I  OP  1 
I P I  I  6 . L  T .  I  I  GO  TO  to 
lOPc  I  6 . 46 . K6 I • I 0P6 
I P I  I  3 . L  T .  I  I  00  TO  to 
lOPi  I  3. JS.MS»*I0P3 
00  TO  to 

6H00  OCCOOC I  to. 906t. MOL  > L CP T T . OOP  AC . OP  TP  AC . 6A0P AC . At MOL C . 

•AMIOtC . T HOL CP .POL CP 
9069  P06MA T I  tv .  It . 7P I  0 . 6  I 
00  TO  90 
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I 


i 


For  card  types  greater  than  1000#  the  decoding  statements  are: 


6900  01 C 001  I M . 9008 . MOL  »  M T  . NM . H TO .  J T P l  I  »  .  I •  .0» 

90C9  rORNAT  (  II.  I  I  .  (?.  i  1 

RCA0(**.900e»  NT  .NM.NTB.OANCTFI  I  )  .  1*1  .01 
NTA0Le«(NT-| i •ex  l•S•NTB 

L  L •O •  I  NT  able  ~  I  I 
00  691 0  I  • 1  .  0 
PR0BIL<LL*I l•PR0BTPl I > 

6910  RAM0PR(LL*1>*R*nGTP(|) 

GO  TO  60 


Transfer  is  made  to  statement  6900  for  input  of  each  probabil¬ 
ity  function.  The  target  type,  mine  type,  and  table  number  are 
decoded,  and  the  probability  and  corresponding  range  values  are 
stored  in  appropriate  array  locations.  When  a  Card  Type  99  sig¬ 
nals  the  end  of  the  data  for  the  subdeck,  the  following  section 
performs  various  calculations  required  for  the  case.  The  state¬ 
ments: 


7000  00  7009  i • I . NMT 

RCTCLEI  I  I-SECONI  I  i«SEC0T'ri  I  t 
NH  t  N I  i  1*0 
00  7006  J- 1 .NAP 

iriMTFAIJI  CQ.I»  NMimM«NMINMI*NSTIClttJ» 
7006  COMI 1 NUC 
IBTf  m-0 
00  7009  (•1.6 

1 r t NBA  I  I  t  >  L T  .  I  I  CO  TO  7006 
I BTr I R« I 

7006  Nf  TBT  i  I  ) *0 
NOT  amt -0 

00  7  000  t  • 1  . N  T  CO 
N*NTGTVP<  I  I 

NCTAMT»NCTAHT»hCTAM( I > 

7000  N I  TOT  I N I  • N I  T 9 T  <  N I  ♦  I 


compute  the  duration  of  the  fuze  timing  cycle  (if  any) ,  the 
total  number  of  mines  emplaced  by  type,  and  the  total  number 
of  targets  by  type.  If  sympathetic  detonations  for  mines  are 
being  evaluated,  the  statements: 


irii6v«p‘ii  lt  n  00  to  7oi6 

6  TBBAI I  I  i  • 0 

00  7010  1 • I . NMT 
00  7010  J* I . 7 

STNDlSt  t  .J)«S«M0IS«  I  , JX  • •e 
7010  SfMMAIf  I  1«AHAKI  iSYMnAMI  I  I  .SVMOISt  I  .J»  > 
STNnAK  (  I  I  *600  t  (  6THHAR I  M  I 
70)6  ftSPNAX^O 
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compute  the  maximum  distance  at  which  sympathetic  detonations 
can  occur.  If  sympathetic  detonations  are  being  evaluated  for 
direct  fire  rounds,  the  following  statements: 


|i  GO  to  ion 

S^nnAH I  2  t  *0 
00  70  16  I  •  I  .  5 
00  70  16  J-  I  .  7 
s^Hoorn  .ji-SYM00f«  I  .  jt 
'tQlB  6rMnAXt2»»ANAKMSVHMAXf?l.  SvnOOf  I  ^  •  i 
SV**nAX(ai  •%0RT(SYnPA«l?l  t 


compute  the  maximum  distance  at  which  sympathetic  detonations 
can  occur.  If  sympathetic  detonations  for  indirect  fire 
rounds  are  being  evaluated,  the  following  statements: 


7017  t r (  I SVHP I  3 »  . L  r  I  I  GO  to  7019 
S  vnnA  X  I  3 ) • 0 

OC  70  J  e  !  •  5  . 5 
0  0  7  0  16  J  •  I  .  7 

Sff’OJt’t  \  .j»»Sf«oif  >  :  .  ji**r 

7018  SvnMAXI  JtvAMARI  iSVMnAXI  Si  .SYMOIf  I  I  ,  J  \  I 
SVPHAXI  n«S08T{SY««MAxf  $1  » 


compute  the  maximum  distance  at  which  sympathetic  detonations 
can  occur.  The  next  section  of  coding: 


7019  ITiNMt  Lf.ll  GO  TO  YO**? 

00  70h0  I • I .NTGTP 
PSPi  I  >  «0 . 

00  707^  J*  t .Hnr 
NT««| 

DO  70  SO  K-I.S 
Nrt-8*<Nr*K-i I 
00  7070  L*l.e 

I F  ( PROS  I L  ( N r I  »L  •  . C 0  0  I  00  TO  7025 
7  07  0  C  OR t  I NUC 

70P?  RNGS V ( K I  •RANCPR I  NT  I  • L  I 
7030  CONTI NUC 

^RS«400  <  I  .  J  1  •RNCSV  (  I  I 
PRKL  0  «  I  . J I •RNCSV  I 
PROTNOl I .JI«RN0SYI1l 

RSPI  I  i«ARAI|  IRSP*  I  I  .RNC9V(  I  l  , RNCSV I  S l  ) 
RSPNAX*AHAX|  ( RSPNAK .RNCSV I  »  l  , RNGSV (  3 '  1 
7Q3S  CONTINUC 

I F T NAO I  V . 0 T  . 0  I  RSPI  !)  -RSPI  1  t  *3C 
7  Ow  0  C  ONT  I NUC 

TFiNAOIV.Gf  01  RSPNA y • RSPNA t  •  30 


ds^ermines  miniinuin  iran^GS  which  cdch  of  ^he  inputi  prob“ 
ability  functions  are  zero  and  computes  values  for  the  range 

for  each  target  type  and  the  maximum  range  of  in¬ 
fluence.  The  largest  possible  diversion  offset  distance  (30 
feet)  is  added  to  the  range  of  influence  if  target  diversion 
is  being  considered.  The  next  group  of  statements: 
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•’G***i 


KMIN-KMAV.O 

OC  70bQ  {‘If) 

7  060  N I  OB  f  t  I  I  >  0 

*0 

l^iNDfMO.L!  liCO  TO  7066 
DO  70  1*1. Norwo 

N  -  I  M  T  OC  r  (  I  ) 

7076  N I  06 r  I  N I  • N I oe T  I  N )  »  I 
00  70d0  I  •  I  .  6 

i f I N I  OB r I  I  I . OT  oi  NOr M r -Noru T • 1 
7  080  C  ON  t  I  NliC 
7086  CONIINUC 

or.  »  f  (,  >  -  I  N  T  G 0 

xr*A««Ah*K|  linAM.TCTROt  '  I  »  » 

7100  RMlN'*H|Nt<XMIN.TCT)>OL(|i> 

XMA* . tfHAX*RSPHAX 
X  M  I  N«  *«  I  N  RSPNA* 
l»  IXNA*  OT  1636  >  yHAV>l63e 

J.f  •■MINI.T  i6Se  I  *H1N«  If  30 


determine  the  number  of  defender  targets  by  type,  the  total 
number  of  defender  weapon  types,  and  the  maximum  and  minimum 
X  coordinates  within  which  mines  will  be  retained  for  the 
case.  The  following  statements: 


t r  '  NVAP . L  T  .  I  I  00  T0999B 

DO  6^00  (•I.NVAr 

C0SA«C0SiAVVVIM|i«  0I7*>63^9^59i 
SINA«SIN«AVTVP( I ••.0i7H6Sa9?6Bi 
XORQVP^rLOATi  irixiXOvPf  I  I  .'100  I  l/|00 
T  OftG VP • TO VP  I  i  • 

NUV*NWCPV I  I  I 
I r  I NWV . L  r  1100  TO  8600 
DO  6190  J« 1  . NU  V 

*DMP< I .JI«X0PGVP*DHP| |*( I ,JI«C0SA*0HPI (f( | ,JI«SINA 
XOMPI I .J»*T0«0VP«0«P| ir« I .J| -COSA  DHP IIXI|.JI*S!NA 
690  CONTI NOC 
BifOO  C  ONT  I  NUC 


transform  the  desired  mean  points  of  impact  for  each  round 
in  each  indirect  fire  volley  into  the  map  coordinate  system 
[Equations  (38)  and  (39)].  The  last  group  of  statements  in 
the  subroutine: 


6600 
9998 
I  H80 


CO  6600  I • I . NTOTP 
Ah.AHAK  I  <  TARL  lit.  T APh(  I  I  I 
00  6600  I  , Nv  AP 
K-IWTVAP(j; 

THPSIGlK.n.m  ‘♦‘••AHAXlfRCP(j».DtPfJl|*A«4<;QRT(C 
CONI  1  14  U  C 

MC  turn 

roRHA  T  «  (HI  I 
C  NO 


compute  the  distances  beyond  which  the  effects  of  an  indirect 
fire  round  are  not  considered. 


Subroutine  SETUP 


This  subroutine  performs  iteration-dependent  calculations 
and  determines  the  mine  X  and  Y  coordinates.  The  first  exe¬ 
cutable  stat^ents: 


3^9 


1  »  •  0 

r  OT  5^0  •  T  CT  Yt  ? 

irtnooe  Lt  Y > T c 1 S^D • r G t 0¥L 
Rf  M 1  NO  I  ■  r 

NC'UlNO  ? 
t  RUNS • I  RUNS*  I 
00  SOO  I • ! . 9 

NKiLLIM)«NKILLDl|) •NRT B | T ( | i 
NX  t  L  I  C  I  I  •  0 
00  305  1  •  I  . NV ip 

i  or'i  I  )  -NVrACA  (  t  I 
CONT  t  N'JC 
00  3  J  0  I  •  I  .  *7 
NHSmPT  I  {  I  •NNOt 
DO  315  J« I . ?0 
00  31*5  I  •!  .  15 

NoercAi  I  .ji«iA8S<N0t*''rAi  i  .j*  i 

00  3^0  J« 1  .  I  5 

ISVirA(J*l5l *0 

I  S  V  i  ^r*  I  J  7  ■  0 

00  3d9  J- 1  .  I  30 

THTOFRi jl *9990 . 

00  330  '.1  •  I  .  I  00 
KOr  T  TN I  I  I • 0 
NRF 1 RO  t  I  1*0 
OCLATN*  t  I  >0 . 

NK I LL  T • N9PL  P  T • Q 

NTLOSf -0 
N09C vr« I 

T  HC  T •  .  0  I 7N5  3e95*  r HE  T  A 
SINT«SINlTNETt 

COST -COS I  the  ^  I 
KNRS«0 

MN8*XUI OTH/?  0 
VL2  •  fLE noth/ e  0 
00  9(0  I  •  I  .  B'*  * 

/ A900H  t  • *0 
N  0  •  •  J 
NOBTP9  R 
t  *0 

N  -NRS  • 

NOB'NOt*  •  N 


•  NRrBO't  i  I  -NOFOANI  I  I  «0 


t 

initialize  variables  and  set  to  zero  the  547  words  containing 
the  mine  detonation  flag  bits.  The  next  statements: 


00  900  i  •  I  .N 

i»  0  wRltr.(t>  VRO  AO  '  M  ,  V  OQ  A  0  (  1  >  .  NOB  T  P?  I  r 


write  the  X  and  Y  coordinates  of  the  travel  path  end  points  on 
Tape  1.  Next,  a  double-nested  DO  LOOP  is  entered  to  determine 
the  mine  locations  for  the  iteration.  The  statements: 
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I  b  0 


«  ♦  •  LI  II  00  f U 

•  ‘  J  1  6  j  >  I  .  N  4  r 

*IL  f»N0n»1(RN|  » 

*C  L  RNORH I  9UB I 
‘’f  « I ND  a 

r  A  I  j  I 

j  r  -  0 

‘  NST  I  C  K  I  J  J 
»  S6  I  •  I  .  N 

*L  L  RNORH ( RNl I 
»l L  PNORH  «  RNN  I 

NOB  I R? -HT 


select  two  normal  random  numbers  for  use  with  the  aiminn 

The  mine  type  for  tS  sorSe  Sp2iS'?s 

nurt^rSe  teleoM^?o  °°  "°™hl  random 

del^a^ionr  if  ballistic  error  standard 

aeviations.  if  the  nominal  mine  locations  about  the  sortie 
aimpoint  are  read  in  from  cards,  the  statements? 


i^jsilosihiii  lao.i^o 
ISO  RCAOiai  ORM . OR V . NOB r pa 

I r  «  nob T pa  NE  HT I  00  to  i 3o 
00  TO  1^0 


read  the  nominal  mine  X  and  Y  coordinates 
wise,  the  statements; 


from  Tape 


2. 


Other- 


1^0  00  »0i  I  .  I  ,  I  ?J  .  i  ,  jSf  1  OS  , 
12^  CALL  RNORH 1 RS I AR r « 

ORX  •  «<^HA  I  H  I  J  1  /  6  •RSTART 
j*'«jSEL0b«Mi».Hi  las  lae.  ia3 
tas  CALL  RNORH <  RS T  AR r  I 

OPx-YSmaIh'ji / s . •RSTaPI 
GO  TO  ISO 

las  OR  A • X Ste A  I  H '  J  I  •  (  R A NT  I  nUHH r  I  S' 

I r I  JSC  I  OS • H I ! • 3 1  las.ias.iae 

laS  OR » • YSkA ; M I j j • I RanF I OUHN r I  S 


determine  the  mean  points  of  impact  in  range  and  deflection 
from  either  normal  or  uniform  distributions  of  mines  depend¬ 
ing  upon  the  value  of  JSELDS(MT).  For  normal  distrihnM one 

2viI?JonL°th''®T"^''^  YSWATH(J)  contain  six  s^andaS 
fi  these  values  are  divided  by  the  value 

6  to  obtain  the  one-sigma  values  in  the  statement^ 


J  SO 


OPa-0Ra»Mn| 

0Rf«0Rv«BNa 

06 ■ • A  I  Mr  I  .  i 
OB  r • A  I  HP  f  f . 


*StCA0(J»  »RNi«SiGeU( 
•SIGAPt  ji  •RNt**siGBRi 
M*'Oir«C0ST»0PY»S!NT 
JI -ora-stni-ory^cosi 


J  • 
J  I 
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The  mine  X  and  Y  coordinates  with  respect  to  the  sortie  aim- 
point  are  computed  [Equations  (1)  and  (2)1  and  are  then  trans¬ 
formed  into  the  map  coordinate  system  [Equations  (5)  and  (6)]. 
If  the  mine  location  is  within  the  rectangle  defining  the  area 
through  which  the  targets  are  to  travel,  the  statements: 


compare  a  uniform  random  number  to  the  probability  of  mine  mal 
function  [Equation  (7)].  If  the  mine  is  a  dud,  the  quantity  8 
is  added  to  the  mine  type  to  reflect  this  condition.  If  the 
mine  has  a  fuze  timing  cycle  or  target  counting  capability, 
the  statements: 


compute  the  random  starting  point  for  the  mine  [Equation  (10) 
or  set  the  target  count  at  which  the  mine  will  arm.  .This  can 
be  a  random  integer  number  of  target  counts  Varying  from  1  up 
to  a  preset  maximum.  If  Tactic  1  is  being  evaluated  and  if 
the  mine  is  a  dud,  the  mine  is  discarded.  Otherwise,  the 
statements: 


MORE  tH*N  3276/  MINES  IN  M|NtriEI.»>l 


write  the  mine  coordinates,  mine  type,  and  fuze  ti 
starting  point  or  target  count  for  arming  (if  any) 
The  final  statements: 


*60  N00TP8»0 

HRITC.(.t)  OBX  .  OBY  ,  N0»1  pa  .  I  I 
O’  .MUSH  --o' 

TOTS  I  t1  *  0  ,  0 

00  100  I « I . NTGO 

N-NTOT  VP  C  n 
NRAOr 1(1) >NRA 1 (N) 

rriNlTTCS(Nl  .to.  I  I  NSPL  I  T  *NSPL  r  I 
9  9  T  I  M  E  rt)M  I  t  -  0  . 

TOTOEL  1  f  I  • 0  . 

swpon.  (  n  -0  . 

NOT  AM  I  I  t  )  «NOT AMI  I  ) 

TGT VCL  I  I  )  -TOTSPO 
100  CONTINUE 

I r I Norwo .  L  T  .  !  »  PETUftN 
DO  MO  J»  )  .  NOrWD 
N* I WT  Of  r I j I 
NR  AOr  D )  J  >  VNR AO  IN) 

M-O  CONT  INDt 
RETUNN 

END 


write  a  duituny  record  on  Tape  1»  initialize  certain  variables, 
and  determine  the  number  of  targets  which  are  capable  of 
sweeping. 


Subroutine  ROAD 

This  subroutine  transforms  the  mine  locations  into  the 
travel  path  coordinate  system  and  places  the  targets  at  the 
beginning  of  ’the’ travel  path  segment.  The  first  executable 
statements:  .  v  ‘ 


0  I  Ml.  NS  I  ON  XL'CF  (  I  00  i 
NOr  *> I NDF*-0 
RSNIND  I 
KNtiS  *  K  MSS  t  I 
DO  10  I  ■  1  ,  KNWS 
10  RE  *n  n  )  XR 1  , YR I  , NOB 
REXOI I i  XRB,YR?,NDB 
eo  BE  ADI  I  I  ORX  iORY  ,N0B 
I  F  I  NAP .  L  t  .  1  I  00  TO 
I F I NO01 PS . CO  81  00 


read  the  X  and  Y  coordinates  of  the  end  points  of  a  travel  path 
segment  from  Tape  1  and  read  the  tape  until  the  first  mine  do- 
ordinate  record  is  found.  The  next<^ statements':  :  \ 


25  N2-?^0BTPe 
L  I  T  •  I  T 
A  t • rwa - VR I 
AP«XR?“XR 1 

i  r  (  A? ,  CD  .  0  .  )  Ae*^ .  oooooo  I 

TMETR-ATAN8(A|  .Ae)-3,  |h5592  6  5M/2 
COSTR-COS( THEIR)  A 

S I  NT  R«S  I  Nil  HE  TR) 


compute  the  sine  and  cosine  of  the  angle  that  the  directed 
travel  path  segment  makes  with  the  X  axis  of  the  map  coordi 
nate  system.  The  statements: 


09X»0.0 

o©y  •  0 . 0 

NOBTP<«e 

I  T • I  HI Nr*p 

CALL  IPACK 

t  08i  i  I « I  WORD 

VLCNTM«OBt*SQ«T  1.  A? 

CALL  IPACK 

NOB-B 

I 0B( a  I « I UOPO 
NOBTPa«N? 

I  T -L  I  T 

00  45  1 <  I  .  I  ib 
fMTOrP I  I  I *0999 . 0 
VMI N»99999 
r HAX • 0 . 


pack  the  travel  path  segment  boundary  information  into  the 
IOB(5000)  array  and  initializes  the  TMTOFR(130)  array  which 
is  used  to  control  the  time  at  which  direct  or  indirect  fire 
rounds  may  be  fired.  A  DO  LOOP  is  next  entered  to  consider 
each  mine  on  Tape  1.  The  statements: 


transform  the  mine  X  and  Y  coordinates  into  the  travel  path  ^ 
coordinate  system  [Equations  (8)  and  (9)].  If  the  mine  lies 
within  the  travel  path  segment  boundaries  and  within  the 
range  of  influence  of  at  least  one  target  in  the  formation, 
the  statements: 


call  Subroutine  BOOM  to  determine  if  the  mine  was  detonated 
while  the  targets  were  traversing  a  previous  travel  path 
segment  (if  any) .  If  the  mine  was  not  previously  detonated 
the  statements : 


i  »  ‘  I  DC  ▼  €  Q  I  •  Oi‘  *0  “0 
t  Ai  L  I  PACK 
H«nou(N08tP?.bi 
J  i  .  U()9i  P?  OT  I  5  P  00  TO  ?  S 

NOB'NOB* I 


pack  the  mine  information  into  the  variable  IWORD.  If  more 
than  5,000  mines  have  been  retained  for  the  travel  path  seg¬ 
ment,  the  statements: 


i  i  t HOB  IT  500  »  >  00  TO  SO 

PH  I N  f  i  0  0  0 

lUOO  r  OPdA  T  ■  •  OXQRI  ThAH  bOOO  TIlNeS  RANGE  Jf  NTtUENCC  TOH  AHA 

•0  SCCHI  NTw^Oi  1*1/  I  ,  •PROCRAH  SIOPS*  .^0^  IM  /  •  i 
call  exit 


print  an  error  message,  and  the  program  stops.  Otherwise,  the 
statements : 


30  I  OB  I NOe I  -  I MOBO 

*40  HEAOilt  OBX  .  OR  T  .  N90  T  P^  .  I  T 

50  CONTI NUC 


^ace  the  mine  information  into  the  103(5000)  array  and  read 
another  record  from  Tape  1.  When  all  mines  have  been  pro¬ 
cessed,  the  statements: 


!0t]  00  l^0  l•i.NT00 

■  r  SA  V  I  I  )  •  I 

ircKNRS  ro.i)  00  to  iio 

iriT0TVN;4in  CT  9999h  >  cc  to  IPO 

MO  TGTYNM(|>«T0TV0L(I> 

TOTvELT I »-TGTSP0 
IfiKNRS  to.  IT  00  TO  l€?0 
TAOJ'^AbSt  TOTYNWC  I  l/TOIVtLI  I  T  > 
0CLTn«TGT0EL  I  I  I  »SWP0CL  i  \  i 
T  1  ME n V M  I  • T  I Ht RV (  M  - T AO J  OCLTn 
TOTVNMi  I  i•rGTYNWl  I  »  TOTvElJ  I  l•Df.  I  Tm 
IPO  C  ONI  1 Nur 


initialize  the  target  positions  and  velocities  and  adjust  the 
target  travel  times  at  the  beginning  of  the  second  and  sub¬ 
sequent  travel  path  segments.  The  following  statements: 


: 0  T  vsv*  T  OT  YOL  <  I  T 
LCFTIN'NIOD  NKILlT  NTlOuT 
MuSh • 0 
N  0  V  T  *  0 

00  I p I  i  >  T  .  t  0  0 
0  •  I  •  0 

1  *1  I  •  I 

•1  '  S  A  V  l  I  »  »  0 
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initialize  several  variables.  If  indirect  fire  is  employed  on 
this  travel  path  segment,  the  following  statements: 


;  r I  MV  *  p  L  T  t  (  GO  TO  J 

1  mi  NE  •  I  f  ••  y 

NOB  I •  I f 

DO  i 90  J* I .NVAP 

DIRArK'jl«AVTVPlJi*.0l7H53^B3'THeTH 
IBO«AmOO<iiOVPijl.tQO  » 

I  I  ABS  (  I  BO  > 

I  r I  t ROAO . NC  . KNRS )  CO  TO  130 
I  T  •NTl  C  I  F  t  J  I 
I  n  1  Nc  :  ■  J 

MR»<.t(0VP(  J)  *  lftOAO»  t  10000  ■ 
y  R  •  f  r,i  V  p  I  j  1 

O0K«  IR-KRI  l•COSTR*(VR-VR|  l«SiNTR 
oev*  IVR-KRI )«SINTR«I VR-VRI (•rOSTR 
iriCSV-GT  rtf  nth . OR . OBr  Lt  . 0  i  GO  to 
irifiBX.LT  -1638  .OR.OBR  GT  1638  J  GO  TO  l?9 
CALI  IPACK 
NOB^NOe* I 

I  r  <  «OB  LI  500  M  GO  TO  I  ? 

PR  I  -4T  100  0 

CALL  EMIT 

t  Jw  1  OB ( NOB  >  •  I  WORD 
1^5  CONTI  Not 
ISO  CON  1  i NUt 

00  13**  J*  ;  .  Nv  *P 

NUV •NWf  P V (  J 1 

I  r  (  NHV  L  T  .  I  I  GO  IQ  13** 

00  133  K -  I  . NWV 

ROTOmPK»J.i»J*‘MOmP»J,«»-1lRli*COSIP*«tOmP<J.M>-rRl»*5INTR 
R0T0mPy(j.<i«  -  iMOmPlJ.*'*  -  VRI  >  'SiNiP^fv  o**p  ij.ki  yRM*COSTR 
til  CONTI NUE 
I  l«*  CONTI  noE 


transform  the  origin  of  the  volley  aimpoints  into  the  travel 
path  coordinate  system  [Equations  (36)  and  (37)]  and  pack  the 
information  into  the  variable  IWORD.  The  desired  mean  points 
of  impact  are  also  transformed  into  the  travel  path  coordinate 
system  [Equations  (40)  and  (41)]  and  stored  in  the  arrays 
ROTDMPX (10, 10)  and  ROTDMPY (10, 10) .  The  next  group  of  state¬ 


ments  : 


i  i  5  I  N I  N  f: ' 
T  •  0 


!*tNO  l»  I'  00  TO  160 
^BM  •  0 

DO  I 5U  I • I . NO 

I  RO • Amoo ( xRor 0 1 I i . I oc  • 

I RD« I ABS ( I RO I 

I  r  (  I RO . NC  ■ RNRS )  00  TO  150 

MR-rL0AT( ir|KlKR0r0< l WIOO  > I 

YR«rL0AT(  iriXIVROEOi  I  >MOO.  I  l 

0BY»  -  IXR-XRI  (•SINTR*  lYP  yRl  l  •CCSTR 

I  r I OBY  OT  .  YLENTM  OR  09Y  ir.O  »  GO  TO  150 

NOBTop-  I  7 

ir(L>>s9.l'«7 


I  T.  |r|)t.  AHODlYRDFOl  I  »  .  JOO.  >  » 
I  T  «  I  ABS I  I  T  I 
CALL  I  PACK 
NOB*NOB* 1 

IFInOB  LT  5001  00  I w u 

PRINT  1000 

call  Emit 


m9  M08TPe»ie 


00  TO  me 

mo  I  OB  (  N08  )  •  t  WORD 
1^>0  CONTlNUf: 


transform  the  boundaries  of  the  direct  fire  areas  into  the 
travel  path  coordinate  system  [Equation  (24) ]  and  pack  the 
information  into  the  variable  IWORD.  The  statements: 


6(1  iriNDfAA  LT  II  00  ro  IIOO 
06  ?50  I . I , NDfwn 

DCrXM  l-IKOUf.  rill  XfilliCOSTRiivODEriM-fRI  (•SINTR 

DEFY(M.-IXODCri|iXRll'SlNIRflvonEriil-YRll‘COSTR 

CONTINUE 


transform  the  coordinates  of  the  position  of  the  defenders 
into  the  travel  path  coordinate  system.  The  last  statements 
in  the  subroutine: 


HflO  irdCFOPT.LT.MRCrURM 
NLCFCT  -0 

noMioi«i,Nioo 

■  rF-(  N  I  0  I  YP  (  I  1,  NC;  ,L  CFT  r  1  0  0  TO  MjO 

N.LCFC  t  -  NLCf  CT  *  I 
'X  1.  c  r  i  N  L  C  F  c  T  J  »  t  0  T  y  0  L  'V  » 

SIC!  C  ONT  INUr. 

OLCF'ALNOLC 

1  F  t  L  CFOP  T  .  (iT  I  )  OL  C'F  «0eF  At 


1  rt  t  Nt  •  0 
NQBTPS* I  9 
09Y*^YM1  .  •OLCF 

QBY'AHAXl lOBY.O. ) 

M£0  08V  *O0Y  +  OLCF 

I F FO0Y . GT  .  YMAX )  00  10  500 
DO  M5Q  l-l. NLCFCT 
OBX-XLCr  M  ) 

CALL  [PACK 

NOe -NOB  ♦  I 

I  06 ( NOB ) « I  WORD 

1  F  ( NOB  . L  T  .  5001  )  GO  TO  ^30 

PRINT  10,00 

c  Ai  L  rx  M 

30  C  ON  1  1  NUt. 

■GO-  TO  ‘  ■ 

500  RFTURN  '  -  ■  \ 

End 


determine  the  position  along  the  travel  path  segment  that  the 
line  charges  or  fuel  air  explosives  will  be  placed  and  pack 
this  information  into  the  variable  IWORD. 


Subroutine  BOOM 


This  subroutine  sets  and  checks  the  mine  detonation  flag 
bits  contained  in  the  KABOOM(547)  array.  The  first  executable 
statements : 


I MD* (  I n I NC  - 
K  >(100  I  I  «  1  Nt 
I  r  ( t< .  fQ  -  I  I 


compute  the  word  and  bit  position  within  the  word  for  the  mine 
being  considered.  If  the  call  to  Subroutine  BOOM  was  made  for 
the  purpose  of  recording  that  a  mine  has  detonated,  the  state¬ 
ments  : 


shift  a  1  into  the  appropriate  bit  position.  If  the  status  of 
a  mine  is  to  be  checked,  the  statements: 


place  the  bit,  whether  ON  or  OFF,  into  the  variable  IDET  for 
interrogation  in  the  calling  routine. 


Subroutine  SORT 


The  purpose  of  this  subroutine  is  to  sort  the  IOB(5000) 
vector  into  increasing  order  by  a  method  developed  by  Richard 
C.  Singleton.  Details  pertaining  to  the  sorting  technique  can 
be  found  in  Algorithm  347  of  the  Collected  Algorithms  From  the 
Communications  of  the  Association~for  Computing  Machinery. 

The  listing  is  presented  here  for  completeness. 


KTt;Avl  ISVIST  »  •KISAVrlSVLSI  1  •  I 
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Subroutine  LOOPS 


The  purpose  of  this  subroutine  is  to  determine  which  ta 

the  IOB(5000)  array  has  already  been  sorted  so  that  the  next 
event  that  a  target  will  be  involved  in  can  be  determined  by 
incrementing  the  appropriate  location  in  the  KTSAV(IOO)  arra' 
The  first  executable  statement: 


iri»iii-Ti  20,ao,i5 

i*!  Aiiji  -  At;i 
A  t  I  I  ■  T 
T  -  A  (  I  J  I 
?  U  L  .  J 

iiiAij)-Ti  aj.^o.ifO 

??  AllJI  •  AIJ) 

A  I  J  I  .  1 

I  •  A  (  IJ  1 

II(AIM-I)  ^0,'^0,^7 

SI  AllJl  «  A(ll 

A  (  I  I  ■  I 

r  «  A  (  1  J  I 

00  TO  >40 
3  'J  A  (  L  1  »  A  4  K  I 

A  4  K  I  -  I  T 
44  0  L  «  L  -  I 

t  r  ( A  <  L  4  - r )  35 ,  35 , HO 
35  T  t  .  A  ! U  4 
50  K  -  K  4  1 

ir(A(K4-I4  50.53,53 
55  IF(K-L4  30,30.55 
55  I r 4  I L - I  4  '  4  J -K  4  4  60,60,57 

57  1  1  4  M  4  I 

I  U  4  M  I  •  L 
I  “  K 
H  *  M  ^  I 
00  TO  00 
0  *.V  I  I  (  M  i  ■  K 
1  U  PM )  *  J 

J  «  L 
M  «  M  ♦  I 
GO  TO  80 
V  0  M  •  h  -  1 

lr4H4  76,110,75 

7  5  I  1  I  L  4  41  4 

J  ■  I  U  4  H  4 

8  0  I  IM  J  -  I  -  I  1  4  B5,  I  0  ,  «  0 

85  1 (  4  I  » I  4  67,5,97 

07  I  -  I  -I 
901-1.1 

IFII-J4  93,70,93 
93  1  A.4  I  4  I  4  .  - 

IFlA(n-T4.  90,90,97 

9  4  K  *  I 

100  A4K4M  •  A4K4 
K  •  K  -  I 

I  f  4  1  -A  4  K  J  1  100,105,105 

10  5  A  I  ;<  4  I  4  •  r 

0  4)  TO  9  O' 

I ’ 0  Rr  ruHN 
f  N  0 . 


increments  the  counter  for  the  target  that  was  considered  in 
the  last  event.  A  DO  LOOP  is  entered  to  consider  each  target 
and  the  statements: 


remove  the  target  from  further  consideration  if  it  was  damaged 
in  the  last  event.  If  the  target  has  not  been  damaged,  the 
statements: 


determine  whether  the  next  event  that  the  target  will  be  in 
volved  in  has  previously  occurred.  If  it  has  been,  the 
counter  is  incremented,  and  the  determination  is  made  again 
Otherwise,  the  statements: 


unpack  the  event  information.  If  a  target/mine  encounter  is 
being  evaluated,  the  statements: 


! F i M  >  ? I  8  ,  ?H0 
I  F  (  PUSMOO  <  N  ,  M  J  lf-ao  ,  8  i  5 
I r  <  PUDT  NO ( N , M )  >  88  0  , 80  5 
XOi S«A9S( OBX-TGTXOL ( 

I F  «  XO I S  »SP<  N  3  1 8M  0 . 805 . 805 


compute  the  distance  between  the  target  and  the  mine  when  the 
target  is  at  the  point  of  closest  approach  to  the  mine 
[Equation  (12)].  This  computation  is  performed  only  if  the 
mine  type  can  be  detected  or  detonated  by  the  target.  If  the 


mine  is  outside  of  the  range  of  influence  of  the  target,  a 
transfer  is  made  to  consider  the  next  mine.  Otherwise,  the 
statements : 


r50  rONiNUf 


compute  the  range  distance  which  must  be  traveled  by  the  tar¬ 
get  to  reach  the  point  of  closest  approach  to  the  mine 
[Equation  (11) ] •  After  all  active  targets  have  been  con¬ 
sidered,  the  statements: 


I  SAVI  -  . 

I vCL  -  n 
i  s  V  •  I 

ShlDIS«SH(.DISI*999«0 
00  4  0  0  I  •  I  . NT  00 

If  iSNl  OIS-OlROiSi  I  >)350.j%0.3!0 
3 i  C  I  SAVE  •  I 

SNL  0tS«DIR0IS(  t  I 
350  I r  I  r G T VL I  <  1  I  I  360 . 4 0 0  .  S6C 
SCJ  M  !SHt  01^1  OIROISt  I  )  >40C.400.  T80 
361  SHL  D  1  S  I  t)  t  wo  I  S  '  I  > 

I  SV  •  I 

5 .  r  I 

son  c  '  N  *  •  s  j  f 


determine  the  smallest  range  distance  for  all  targets,  and 
the  smallest  range  distance  for  only  the  moving  targets.  The 
next  statements: 


tRAVtM«SN  0!S  lOTbf'O 
I  SvLST  «  I  SAVI 

IffTGTvEtMSA^E  OT  0  RfluRN 
I r  t  I  VFL  .  I  T  II  00  TO  660 


compute  the  travel  time  to  the  next  event  for  all  targets. 
If  the  event  target  is  stopped  but  at  least  one  target  is 
moving,  the  following  statements: 


TT«SHlUISl  IsiTSRO 

lf«TT  Jt  DCl.  AlHiiSAvr.iOO  to  5?0 
tRAvTN*.0f:LArfi(  JSAvF  • 

RE  t  URN 


compute  the  travel  time  for  the  moving  target  that  is  closest 
to  the  event  and  if  this  travel  time  is  greater  than  the  delay 
that  the  event  target  is  experiencing,  the  travel  time  to  the 
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next  event  is  set  to  the  delay  time  of  the  event  tarqet 
Otherwise:  ^ 


970 


i  S*V(  •  !  SV 
I  5  V I.  S  I  •  !  S  V 
T  R*  W  T  H -  t  t 
f  URN 


the  event  target  is  set  to  the  moving  target  that  is  closest 
to  the  event.  The  lest  statements  in  the  subroStiill: 


■sso  00  590  I  •  I  .  MfCO 
TNi|)»OCtATn<ti 
I  PO'Sl  I  I  •  J 

MiTOrvNwit)  Ct  99990  >tNMl««9999 

1>9  0  CONTINUi 

00  700  I « I .HTOO 
i r  (  1  . L  T  . 2 1  CO  TO  600 
tf(rH(t-|l.CT.rn(|»iC0  TO  710 

6  0  0  K  •  i 

DO  700  J« I . NTOO 

ir.TRfli  LT.T«<miGO  TO  700 

9*  vC  «  TH I  I  I 
T  H  <  I  )  •  t  H  I  J  I 
TNI J1 ^SAVC 
KCeP«IROSt I ) 
t  POS I  t  »  «  t  POS ( J I 
I P0S<  J) •KCCP 
700  CONTItiUe 
710  NUH«K-1 

DI9«99f99. 

00  790  I • 1 . NUP 
KPOS* 1 POS  I  I  I 

I  !•*  I  0  I  «0  I  S  I  KPOS  >  Of  DlS»  00  fO  *90 
C I S • 0 1 PO i 6  I R  POS • 
i  SA  VC  •RROS 
90  CONTI NOC 

>  SVlST •  t  SA VC 
r  RA  V  T  p«  fn  r  I  I 
PC  r  URN 
CNO 


selecting  the  smallest  delay 
time  and  the  smallest  event  distance.  ^ 


Subroutine  EVENTC 


This  subroutine  evaluates 
a  travel  path  segment  boundary, 
ments : 


an  event  involving  a  target  and 
The  first  executable  state- 


fOTVSV-TOTwCt  I  iSAVC  » 
on  VPR  r  *  oBv 
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I 


save  the  target  velocity  and  the  boundary  Y  coordinate,  as 
these  variables  may  be  changed.  If  the  targets  have  not 
started  moving,  the  event  involves  the  entrance  boundary,  and 
the  statements: 


J  ‘  EG  I  ;  00  TO 

OhT 

I  ;b •  i  >  1 

«USh«  t 

I t  I KNftb  NE . I i  CO  TO  i OUO 
T  0  T  S  I  h  -  0 
00  2Cr  l»I.NT00 
^0ll  riMEnvMi-o 
00  TO  t  000 


remove  the  boundary  from  further  consideration  and  initialize 
the  total  breach  time  and  total  target  travel  time  if  the 
first  travel  path  segment  has  just  been  entered.  If  an  exit 
boundary  is  involved,  the  statements: 


I 

! 


I 

I 


•>0*3  CONI'  Nut 

TOIYSV  •  T  0  I  TNM C  I  S A Vt  • 

LETTIN  •  iffTIN  -  I 
bO?  f  0  T ''NW  <  I  S  *  VE  »  •  9999  J 

I r  I  NOr  k  I  T  t  t  GO  TO  ^11 
TmTOTHi  >  •9990 

00  5 ! 0  J •  »  . NOf  A 

call  STINTlISVIfA.ISAVt.J.IBM  .»<0TTTN.?i 
^  \  0  CONT  I NUE 

•>11  iriKNRS  Nt  NRS>  00  TO  51? 

N-NTCTYPt|r.  AVC' 

,r  N’TfCS  N-  10  !»  NS^4.fT«NS»»t*T- 

*  ?  TGWtt-lbAvf.^O 

j  0 u 0  »e ' URN 
f  NL 


remove  the  target  from  further  consideration.  If  the  target 
is  exiting  the  last  travel  path  segment  and  has  sweeping  capa¬ 
bility,  the  counter  for  the  number  of  targets  remaining  with 
sweeping  capability  is  decremented.  If  there  are  any  targets 
in  a  direct  fire  area,  the  event  target  is  removed  from 
further  consideration  by  direct  fire  by  a  call  to  Subroutine 

STINT. 


Subroutine  DIVSET 

The  purpose  of  this  subroutine  is  to  control  the  direc* 
tion  of  target  diversion.  When  a  target  which  must  be 
verted  around  is  damaged.  Subroutine  DIVSET  is  called.  The 
first  executable  statements: 


r 


1 


I 

I 


« •«  1 

1 1  t  vr I « I  90 . I  0  .  >  no 
•  >.  NO  V  t  •  NOV  t  *  I 

t  0  I  V  I  NOV  T  I  -  f  0  »  TNN  I  K 
Nrcou INOVT I -NCTAWIV - 
S  *  NOV  1  »  •  -  I 
GO  TO  900 


save  the  Y  coordinate  and  column  identification  of  the  target 
if  the  target  is  not  in  the  process  of  diverting  around 
another  damaged  target.  A  flag  is  set  so  that  future  diver¬ 
sions  at  that  location  will  be  to  the  left.  If  the  target 
which  is  damaged  in  this  event  is  diverting  to  the  left  when 
damaged,  the  statements: 

•0  S  t  I  0  >  •  I 

GO  TO  «^00 


change  the  diversion  direction  for  subsequent  targets  in  the 
column.  If  the  target  is  diverting  to  the  right  when  damaged, 
a  target  path  blockage  is  formed,  and  the  statements: 


I  GO  S (  t  0 •  *999 

00  dOO  I  • I  . NT  GO 

t r  (  T GT V NM (  I  I  C T  99990  T  GO  TO  ?00 
I  f  <  NTCOi  (  I  0  T  NC  NC  T  «  w  !  >  >  00  TO  ^00 

iflTGlTNMtl)  GT  VO  I  V <  t 0  I  *60  t  CO  TO  ^00 
TCTDCL(il*T0T0CLl!l *0S0CL 
DCLATN*  n  •OtOCL 
TGT VCL  M  I  -0 . 

?00  CONTIN'jt 

9nn  »c  Turn  ^ 

r  NO  J 

5 

remove  the  three  deunaged  targets  from  the  travel  path  and 
assess  a  time  delay  to  all  targets  behind  the  blockage  in 
the  seune  column. 

Subroutine  DIVCHK 

This  subroutine  determines  whether  a  target  is  diverting  ; 

around  another  target  and,  if  so,  computes  the  offset  dis-  .  i 

tance  due  to  diversion.  A  DO  LOOP  considers  each  target  i 

which  must  be  diverted  around.  The  first  executable  state-  J 

ments :  I 


r 


Y5*rOlv<ti  bO 

:f<Ti.LT  ? 3  OH  ft  OT  00  TO  so 

t  r  f  S I  I  I  E  0  999  I  CO  f  0  90 


determine  whether  the  event  target  is  in  the  same  column  and 
within  60  feet  of  the  target  which  must  be  diverted  around. 
If  SO,  the  statements: 


KE|x«s  t>*)SORT<^(3^9 
00  TO  100 
90  CONTI  Nut 
no  NC  f  URN 
r  ND 


f  M  VO  I  V  «  I  . 


•  f-  •  -  -9 


compute  the  target  offset  due  to  diversion  around  the  damaged 
target  (Equation  (13)]. 


Subroutine  UNIT 

The  purpose  of  this  subroutine  is  to  determine  if  the  lead 
target  of  a  group  has  been  damaged  and,  if  so,  to  move  as  a 
unit  the  targets  associated  with  the  lead  target.  A  DO  LOOP 
IS  entered  to  consider  each  target  that  is  damaged  in  the 
event.  The  first  executable  statements: 


00  ?00  K«t.N?uo 

IfitOTVNNJK  lT  JOOOOO  >  GU  TO  f 0 0 
^  •  0 

00  0  i  •  I  .  N  I  GO 

irtrcTvNMMi  01  99990  *  00  to 

|r(NCTA.4IMi  Nf  KI  CO  TO  lO 
I  •  I  •  I 
NAS  «  L  I  •  1 
■  0  C  ONT  ( NUC 

tr  tL.CO  Di  CO  TO  eoo 


determine  whether  any  targets  are  associated  with  the  damaged 
target  as  a  group,  if  so,  the  next  statements: 


•ITB^O 

SNAL I • 99999 
6  I  0 V •  •  99999 

00  50  I • I . NTOO 
I f  (  I  r  0 .  K  >  CO  TO  90 

IEINCTamiIi  NC  NCTAWikii  00  TO  50 
)T^(NIGTrP(|).^4£  ^7(^TYP(K)i  00  TQ  50 
J r < TO T T NH f M . CC  99999  i  GO  TO  50 
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rilifi  rtMteir*!  II  Tint  ■■ 


determine  whether  a  target  of  the  same  type  as  the  damaged  tar 
get  is  in  the  same  column.  For  targets  which  meet  this  quali¬ 
fication,  the  statements: 


!  r  I  tgt  vMu*  i  I  OT  f  G r  «  I  I  uoooo  .  »  00  TO  i?n 

( r  f  T 0 r VNW I  I  I  . I T  B I  0 V 1  00  to  50 
i 

BtGV*TOTVNU( t I 
CO  TO  50 

^Q  iriTGtVNUMl  C*.S«ALV»  GO  TO  50 

xr  •  I 

shal  V  >  r  c t  vnw  c I  I 
50  C  ON  r  f  MUC 


determine  the  closest  ones  in  front  of  and  behind  the  damaged 
target.  If  a  target  of  the  same  type  is  ahead  of  the  daunaged 
target ,  the  statements : 


iriXf.CQOl  CO  TO  iQo 
00  60  I  •  I  .L 
N I •MAS (  t  » 

60  NOTAWt  (Ml  »  >Kr 
00  TO  BOO 


ireassociate  the  remaining  targets  with  the  new  lead  target. 
'If  no  such  target  is  in  front  of  the  damaged  target  but  one 
Is  behind,  the  statements: 

i 

I  I  QO  I F I  KB . CO . 0  I  CO  ’ 0  :  30 

I  rr I r ct TMWi K I  bigv-iooqoo 

•  00  I  I  0  I • I  .L 

t  Ml 'NAS« I t 

;  T OT YMU I M I  I  • TO T VNW i N I  I  VTIV 

•  I  1 9  NOT  AMI  (Mil  -KB 

1  00  TO  POO 


move  the  remaining  targets  to  reassociate  them  with  the  new 
lead  target.  If  no  targets  which  could  be  lead  targets  are 
in  the  column,  the  statements: 


I  iO  00  150  I  •  I  .  L 

N \  -MAS (  I  I 
T  or  VMW( Ml  1 •9f5«5 . 

TMTOrHl Ml  I -ttBO . 
irciMUMSCO.t^BlNTlPBiMT 
09999  rOAMATi*  TQT  LOST  •  .  I  >•  t 
TO* VCL (Ml ) *0 . 
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99999 . N I 


T  i  tXffc  . 


i  <•  0 
1^0 
?no 


LtrT|H-Lf»TlH-| 
NTLOSf*NICOST.t 
irJNOfA.LT  I)  CO  TO 
00  >  ^  0  J •  I  . NOr  A 
call  sriNTiisvirA.Nj 
c  ONT  t  Nuc 
C  ON  T  I NUC 
CONTI  Nuf. 

»  OON 
I  NU 


I  50 

.J.  ISJT.KDFfTN.?* 


i2;aSed"r'“ 


Subroutine  TGTMTm 


TOTrsv*TOTrMM.  ISAvi  i 

K  T -r  T  s*  V  '  I SA vr  I 

I  f*0  >  I  H 

09  i-PW  r  .  OB  r 

»  f  I  ■  *  tl 

f  I  ‘  !  SA  Vt 

NOBl V  r  •  -  NOBC  V  T 

iFiNDvr  or  01  c»LL  OIVCHK 


~  sJiSK-rr  ^ 

The  Sx“s?atIS«= 


*r  I  «  I  .  »r  I  » 

OISTPCi-ABSiOOA  ror«OLl|S*VE.  MIX 
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iiliSSSBSEaiiSauii 


N*NTOTYP(  ISAVtJ 
n.«HOD  (  HOB  iP8 .9* 

I  r  (  NT  T  V  Rf*  1  N  I  .  G  r  .  0  I  GO  TO  6H9 
1 K  t  NOB  TPa.OT.i^lRrrURN 
I F  j Hooc . L T . 3 1  GO  TO  eao 
!FfNTTTCS(N).LT  |)  00  t0?00 


the  subroutine  that  deter 
Similar  branches  are  pro- 


provide  a  branch  to  the  section  of 
mines  whether  the  mine  detonates, 
vided  by  the  statement: 


I  r  t  0 1  s  t  po  ot  .'PfiSHOO  (  M  ,  M  n  oo 


than  the  maximum  range 
The  statements: 


if  the  target/mine  distance  is  greater 
at  which  the  target  can  sweep  the  mine 


NTABLC»(N-n*e}*(l1-l  >•!♦! 
CALL  T  AB  I  NT  (  f)  I  STPD  .  NT  ABLE  1 


determine  which  mine  detection  table  is  to  be  interpolated, 
and  Subroutine tTABINT  performs  a  standard  linear  interpolation 
A  uniform  random  number  is  compared  to  the  probability  of 
mine  detection  by  the  statements:  ® 


N08C V  T • I ABS ( NOBC  VT  ) 

RN"f?ANr  rOUNMV  > 

I r ( RN . CT , PRB I T V i  GO  TO  POO 


and  if  the  mine 


I po-HMsutPT  ‘ . 

0eY*999»7  .  -  ’j  '  , 

NMSHPT  I  «) -NMSMPH  H  t  4  1  ^  ^ 

C*LL  900H<iDET,ll 
I  OB (KT ) • -  I 

iriNOBtPZ.LT  8)  NMDEi  ( M I -NMOC T  ( Ml  4  I 
I r ( I SBl . G T , 0 , »N0 . I SVMP i n , Ot , 0 1  C»LL  SYMOET 


Subroutine  BOOM 


remove  the  mine  from  further  consideration 
turns  on  the  detonation  flag  bit  for  the  mine;  if  sv-  ot  mines 
are  blown- in-place ,  Subroutine  SYMDET  evaluates  sympathetic 
detonations  (if  required).  The  statements: 


00  105  I • I , MTCO 

I r ( ro r YMMi 1  I . 01  99969  I  go  ro  io5 
I  r  (  NC  r  *l4(  I  I  ,  ME  ,.NCT  »HI  I  S»VE  M  00  TO 
SWPOEL  (  1  1 -SMPOEL  (  I  I  4  T  MSWP ( M I 


i  -'a;,  i 

'  a?  »  / 


0( L  A  r  H I  : ) • T  nSyp ( h  » 

I  Ob  C  ON  M  NUf 
00  TO  700 


increment  the  sweep  delay  time  and  sets  the  velocity  to  zero 
for  all  active  targets  in  the  column.  If  the  mine  is  not 
detected  and  if  the  mine  employs  a  fuze  timing  cycle,  the 
statements : 


c‘00  ITtiNTIHItMi  I  1  It  Q<j  TQ  6n9 

U  iKQONftMl  UT  C>  C  to  6H9 

<0tSrH«TinfNVt  1SA/f  *»0T0fl  I  ••SyPOfl  •  ISAVf  J 

»iA»ion<roTsiH*bri  •  mm  ot  siconimm  pftoPN 

O'*  9  C  ON  »  I  NUt 


determine  if  the  fuze  is  active  [Equations  (16)  and  (17)1.  If 
the  fuze  is  inactive,  no  further  evaluation  is  required.  If 
the  fuze  is  active  or  if  the  mine  has  no  timing  cycle,  the 
next  step  is  to  determine  if  the  mine  detonates.  The  state¬ 
ments: 


P»B  I  T  T  «  (J 

1  f  I  NOB  I  (i  t  •?  I  »t  t  OWN 

i>'ioisiPo  ct  .pnDiNotN.Noeip?i  i  peiupn 

BUBlC  -  IN  -  I  '•BI.CNOBTPe  i  1*3. J 

C«ll  I  *0  I  N  '  C  0  I  S  r  »0  .  NT  *Bl  I  i 


call  Subroutine  TABINT  to  perform  a  linear  interpolation  of 
the  probability  of  mine  detonation  function  if  the  mine  is  not 
a  dud  and  if  the  target/mine  distance  is  less  than  the  maximum 
range  at  which  the  mine  can  be  detonated.  A  uniform  random 
number  is  compared  to  the  probability  of  mine  detonation  by 
the  statements: 


»<0Bt  V  !  .  1  tBSi  NOIC  VI  I 
RN.MlNr ( OUNNY I 

l>  I PN  It  PRBITYI  00  10  600 

iriNMiPPiNt  ir.Bi  hcturn 


The  eyaluation  ends  if  the  mine  does  not  detonate  and  the 
sweeping  device  is  not  a  plow.  If  the  random  number  is  greater 
than  the  probability  of  mine  detonation,  the  statements: 


t- 
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IF  I  RANF  I  OUHH t  l.ir  ^Fr*l<nilReTUftN 
NHSUPriHiwMHSMPT • HX  • 

I  OB  I «  I  I  •  •  i 
I  ®  ■)  >  5HSi4r  p  t 

C  *:  aoom  i  oc  t  .  i  i 
p  r.  t  o  p  N 


determine  if  the  plowed  mine  can  still  function  by  comparing 
the  probability  value  to  a  uniform  random  number.  If  the  mine 
was  swept >  the  mine  is  removed  frcmi  further  consideration. 
Subroutine  BOOM  is  called  to  turn  on  the  detonation  flag  for 
the  mine.  The  next  group  of  statements: 


<>50  I  <•  KOUNTini.ie  01  GO  TO 
If  I  1 1 . tt . I  I  00  TO  eoa 
»  t  •  J  T  -  I 
J.  A  L  I  I  P  A  ..  K 

n  i  k- »  »  •  Hftwt) 

»•  Torn 


determine  whether  the  mine  has  counted  the  required  number  of 
targets  if  the  target  counting  feature  is  being  evaluated.  If 
>^®<iuired  target  count  has  not  been  achieved  >  the  variable 
IS  decremented,  the  mine  information  is  packed  again,  and  the 
evaluation  is  completed,  if  the  required  target  count  has 
been  achieved  or  if  the  mine  does  not  arm  itself  after  count¬ 
ing  a  predetermined  number  of  targets,  the  mine  is  detonated. 
The  statements: 


658  WfiOC  riMiaNnof  T(n'«t 
08V  «  89«V? 

I F  «  I 5YP  CO  0  1 SVP. : 

c  al  L  eooni  i  di  t  .  i  * 

I PO*  9H0r  T  ON  *  r  r  0 

i  08  t  K  T  I  •  •  I 

IflNfTTPPiNt  >710.659 
H59  CONTI NUC 


remove  the  mine  from  further  consideration.  Subroutine  BOOM 
IS  called  to  turn  on  the  detonation  flag  for  the  mine;  if  this 
target  type  does  not  employ  a  roller  or  a  plow  as  a  sweeping 
device,  a  DO  LOOP  is  entered  to  determine  if  any  targets  are 
damaged  by  the  detonated  mine.  The  statements: 


00  690  M • I  . N  r  00 

I  F  t  TOT  TNNI  1C  »  .  OT  .  99969  .  I  00  TO  690 
K  I  <•« 

^  IFfx  MC  tSAVC)  00  TO  660 
KF  I  «  •  ir  I  k  I 

00  TO  670 

660  xriv«o. 

IF  INOkT  .  OT  .  0»  CALI  0  1  VC 
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1  ; 


consider  an  active  target;  if  any  targets  which  must  be  di¬ 
verted  around  have  been  damaged.  Subroutine  DIVCHK  is  called 
to  determine  whether  the  target  being  considered  must  divert. 
The  statement: 


‘>70  ololpo-'oe* 


computes  the  target/mine  distance  [Equation  (18)].  If  the 
target/mine  distance  is  less  than  the  maximum  range  at  which 
th©  target  can  be  damaged  f  tbe  statements : 


N  •  N  ’  0  ’  ’  P  ‘  K  » 

PK-pRt^in-N  »;oeiP?»**2 
IfJUISiPu  ’  00  to  b90 

0  I S  t  PO^SOR  r  t  0  J  S  T  PO  > 

CALL  tABlNT«01StP0.NTABLC‘ 


call  Subroutine  TABINT  to  perform  a  linear  interpolation  of 
the  probability  of  target  damage  function.  Next,  a  uniform 
random  number  is  compared  to  the  interpolated  probability 
value.  If  the  target  is  damaged,  the  statements; 


LtftlN  •  .k»T;N  ! 

NK 1 L  L  I  ‘MK  1  L I  '  •  i 

NK  I  L  L  «  M  »  -  NK  I  L  1.  «  N  »  •  » 

jrtNO^ALt  M  00  to  690 
00  690  J«I.NUtA 

CALL  STlNTf  t^jVJfA.tr.J.  IPIt.AO^tTN  ? 
CONTI NUC 
ON  t  I  ‘<Uk 

RN-RANP  I  OUMH  I  I 

irfPN  01  PHB  I T 5  00  ’0  b90 

K  I  •  K 

I r  I  NT  !  T HO  N I  .  0 T  .  C  »  CALL  0IVSf» 
TCTVNMIKt>1CtYNUlKI«lOQOOO 
T  MT  OF  P IK  >  *9990 

r  0  t  V  S  V  •  I  0  T  V  C  c  '  K  I 

T  G  ’  Vt  i  I  K  '  •  0 

IfilSTP  to  \ i  ISVP*? 

illNTMCSlN  (•’  IJ»  NSPLlt-NSPlIt  } 


remove  the  target  from  further  consideration,  set  the  target 
velocity  to  zero,  remove  the  target  from  all  direct  fire 
areas,  and  increment  several  counters.  If  the  target  must 
be  diverted  around  by  subsequent  targets  in  the  colu.nn. 
Subroutine  DIVSET  is  called  to  save  the  target  Y  coordinate 
and  set  the  diversion  direction.  The  statements; 


i' 


'i 

,1 


provide  a  call  to  Subroutine  SYMDET  if  sympathetic  detona¬ 
tions  for  mines  are  being  evaluated.  The  statements; 


evaluate  a  roller  or  plow  interaction  with  a  mine.  If  the 
target/mine  distance  is  greater  than  the  maximum  range  at 
which  the  target  can  be  damaged,  the  evaluation  ends.  Other-  ' 
wise,  Subroutine  TABINT  is  called  to  perform  a  linear  inter¬ 
polation  of  the  probability  of  damage  function.  Next,  a 
uniform  random  number  is  compared  to  the  interpolated  proba¬ 
bility  value.  If  the  target  is  damaged,  the  statements; 


RN.RANf  I DUMHY  t 

I r  I RN ,  GI  . PR« I  T  ¥  I RC  T  URN 

TOTYNWf  ISAVt  >  .TOryNW)  IRAVE  I  •  I  ODUOO. 

T  MTOrR I  I S*ve  I  -99^0  . 

TOT  VSV  T01  VEL  <  I  SAVE  I 
1 OTVEL ( ISAVE I -0 
NSPtr  T "NSPLF  T -  I 

leftin-leftim-i 

NKILLT-NKILLT.I 
NK  I  LL  <  N  I  •NK.I  LL  (  N  I  ¥  | 

1 F  I NOFA  ,l t .  1  ) RE  TURN 
DO  7a0  J. I  , MOF  A 

CALL  STINIdSVIFA.ISAVC.J.IBlT.KDrTTN.e) 
7a0  CONt INUE 
HE  r  URN 
E  NO 


remove  the  target  from  further  consideration,  set  the  target 
velocity  to  zero,  remove  the  target  from  all  direct  fire 
areas,  and  increment  several  counters. 


Subroutine  SYMDET 

The  purpose  of  this  subroutine  is  to  evaluate  sympathetic 
detonations.  Sympathetic  detonations  occur  when  a  mine  is 
^sufficiently  close  to  a  detonating  mine  or  an  exploding  direct 
or  indirect  fire  round  to  itself  detonate  due  to  the  distur¬ 
bance.  The  first  statements; 
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provide  local  storage  for  the  event  X  and  Y  coordinates  an 
the  mine  or  weapon  type  and  initialize  several  variables 
prior  to  the  evaluation.  The  X  and  Y  coordinates  of  the 
impacting  round  or  of  the  mine  which  detonated  in  the  even 
are  placed  into  the  XSYM(2,100)  and  YSYM(2,100)  arrays,  t: 
mine  or  round  is  evaluated  against  other  mines;  if  any  sym' 
pathetic  detonations  occur,  the  X  and  Y  coordinates  of  the 
detonated  mines  are  also  saved  for  evaluation  against  othe 


determine  the  maximum  and  minimum  Y  coordi 
or  rounds.  Next,  all  mines  within  the  max 
detonation  range  of  the  detonated  mines  air 
paring  Y  coordinate  only) .  The  statements 


perform  this  function  for  mines  with  smaller  Y  coordinates 
than  the  value  of  YMIN,  and  the  statements: 


4  a  K  T  S  I  -K  T  S 
50  KTS-I  «K  (SI  •  I 

I F 1 K f S ! . C T . KHOB I  GO  to  60 
I r  I  I  OB) K I S I )  . EQ .  -  1  I  GO  TO  5  0 
I I  OB ( K  T  5  I  ) 

CAEl  UNPACK 

I r  I NOBTPB . OT  . 8  I  DO  10  50 
lr(»MAK»SVMt1A)|i  ISUBI  .1  1  .OBYl 
K  I  MA)i«K  tS  I 
60  TO  50 


perform  this  function  for  mines  with  greater  Y  coordinates 
than  the  value  of  YMAX.  Next,  a  DO  LOOP  is  entered  to  deter 
mine  which,  if  any,  of  the  mines  detonate  sympathetically. 
The  statements : 


unpack  the  event  information  if  the  event  has  not  previously 
occurred.  Next,  the  mine  is  evaluated  against  the  mines  ^ 
which  have  detonated  in  this  event.  The  statements: 


compute  the  square  of  the  distance  from  the  detonated  mine  to 
the  mine  being  considered  [Equation  (19)],  and  the  statements 


compare  this  value  to  the  square^of  the  maximum  range  at  . 

which  sympathetic  detonations ; can  occur ’for  the  mines  involved 
with  a  detonating  mine  or  round.  If  >the  - mine  detonates  P  the  ■! 
statements: 


HI  NNUH-HINNUH.  \ 

NHOC  T  <  N  >  • NMOf  »  i  N  i  .  J 
M  • H I NNOH  t t  ' no .  G 

ho  «  T£  b .  I oon ■ 

0  0  H  A  t  I  I  M  U  .  •  f)  W  f  •  H 
CALL  f  *  M 

1?.H|NNUH-  .OH* 
NOflriHi»«i«uni  <NObTp^« 
Call  BOOh  <  t  OL  t  .  i  i 
I  Ob ( I  t  •  •  I 


H*‘.  JOC  OIIONATIONS* 


deton«e?"a“Sro“i;ssage"?rp“Se^°°ard”S  ^WatheticaUy 

If  the  optional  output  il  requ?S?1he  "tateLKs?"" 


iF-iPpjf^f  me  in l’ MSI  oo  re  i?o 
lIJMJHNuH  fO  II  Mill  rt  »  H  .  !  0  I  0  ) 

10  3  roBnai  .  STHPaTMCiif  ofiONaiiONS 
wm  T£  I  fi  ,  I  gpQ  ,  I  .  .,00  I  P?  .  r>ny  .  OBr 

I  0?3  roHBai  P6.  .  I  h  .  I  I  0  .t  t.  .  i  ,  , 

00  TO  t  ^0 
MO  c  OM  r  t  MUC 
I  £*0  CONTI  MUC 


OB  A  06  t • 


i»  -hinnuh  eo  01  00  TO  ?oo 

I  3  •  M 
M  .  1  c* 

I  e  •  I  j 
t  Suh- 1 
CO  TO  10 


oJSe™ise?\hrSaLmenis?""°"  ^Wthetic  detonations. 


**0U  NObTPp.HMOBT 

oba-sob* 

OBvPP  f  .SOBy 
T*C  T  UBN 
i  NO 


rluSneT'anf 


Subroutine  PRINTO 


The  purpose  of  this  subroutine  is  to  print  the  optional 
output  at  the  end  of  the  event  (if  required).  The  first  exe¬ 
cutable  statements: 


rOTS>n«TlN€MVI  lSAVCi*Toroet( IS*VC»  *SMP0CL  I  I  save  t 

t(iNO0Tpa.ro  17)  00  ro  io?o 

I r  ( nCBT p?  C 0 .  I  0 t  CO  ro  1030 
II  iN00rp?.CQ  leiMCruPN 
I r  I  NOB  T  P?  R  »  I  0 .  I  000 


compute  the  total  breach  time  for  the  event  target  and  if  the 
event  was  a  travel  path  boundary  or  direct  fire  area  boundary, 
branches  are  provided  to  other  sections  of  the  subroutine. 

The  next  statements: 


I  0  00  eoo  K  t • I . I  I 

K6-K I • 1 0 

iritfC  cr  Nioo)  K6-Rroo 
PRIRT  IOOI.(l.l*K9.ir6) 

PRINT  IB02.IKTBAVIM.I-K5.K6I 
PRINT  liOS.IOIBOISMi.t«K5.K»t 
I  r  I  KB  .  CO  .  NTOO  I  CO  TO  <*0 
?S0  CONT INUC 


print  the  sequential  number  of  the  next  event  to  be  encountered 
by  each  target  and  the  distance  to  the  event.  The  statements: 


«*Q  TVRRIt  •  TOT  VNMI  1  BA  VC  ) 

TVClPR-TCTVCL i ISAVC I 

1  r  I  TGT  YNWI  I  BA  VC  >  IT  9997!)  I  00  TO  I  0  0  •• 
T  V  PR  I  I  • T  0  T  YSV 
T  VCL  PR- TOT VSV 


obtain  the  Y  coordinate  and  velocity  of  the  event  target.  The 
statements: 


IDO**  ««R  I  TC  I  6  .  I  VOQ  i  I  S  A  VC  .  NT  0  T  YR  l  I  B  A  VC  •  .  T  VPR  I  T  ,  T  C  T  M  Ol.  i  i  SA  VC  )  . 

•tvclRR.timcmvi ISAVC) .totbin 

UR  I  rC<B.  MIQlKTBAVt  IBAve>  .U0BTP?.0B».OBTPR>  .PRO  I  TY. UN,  IPO 


print  the  sequential  target  number  of  the  event  target,  the 
target  type,  the  coordinates  and  velocity  of  the  event  target, 
the  total  time  that  the  event  target  has  been  moving,  the 
total  breach  time,  the  sequential  number  of  the  event,  the 
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event  type  and  coordinates  of  the  event,  and  the  last  inter- 

random  number  with  a  variable  indica¬ 
ting  that  a  mine  was  either  swept  or  detonated  in  the  event 
If  optional  output  has  been  printed  for  200  events,  the 
statements :  ' 


»  t  •  0  ,  I  0  « 
Noeivt-NoecvT*! 

I  f I NOBt  V  r  or  ?oo 1  I  OR  r  NT  -0 


turn  off  the  optional  output  request  variable  to  limit  ex¬ 
cessive  output.  Finally,  the  statements: 


Nc*  <  H  1  00  '  ? 

00  10  19  K -  I  , 

♦Hi 

T0V2*0eL*rH(N> 

fOTOEL-OCLATHJKJ 

•'•N'OTVRIK,  .torTNN.R,  .rot.oi  .K.  .T0r,EL.K,  .  .iNtNv.O 
.".N'orypiHi  .TCtrNHim  .tgixol(ni  .  TorvtL  ini  .  rincnvini  , 

If  <H-HrC0l  1H<|0.  lOli 
‘♦SO  N  T  CO 

fOTUrfOELAfMlH» 

‘6.  !  l?0»«».HTCTirP-«  rO’ 

•  r  0 !  01 1 
i  0  I  i  flc  r uhn 

*^0  0  **««Te<®.|5,0,l54VC.06fP«t.for5IH 

15.0  rORH.r, P.IH  OOUNO.RY  tVCNT  rOT  . 

ieiuRN  ""^■•■^8  3.9.  IH.., 

t  5?0  I PO  •9HC  N  r Range 
00  TO  I  5«*  0 
S3P  'P0>HHEitT 

•<«  I  Tf  j  6.  I  5s^»  »  I  PO  .  I  T  .  oaf  PRf  .  I  save 

.-ORR.T  I  I  «  .  9,  .  OIBtCT  riflC  •RC,  .  »|0 

R.^NURBER  .  ,V.  O.V..  EVtR. 


11.  TCI, tL.  Ml,  11  Mr 


print,  for  each  target,  the  sequential  target  number,  the 
target  type,  the  target  coordinates  and  velocity,  the  total 
time  the  target  has  been  moving,  and  the  delay  timrlxpS?- 

direct  L^e^arel^b^'  segment  boundary  and 

airect  fire  area  boundary  information  is  also  printed. 


Subroutine  PRINTR 

The  purpose  of  this  subroutine  is  to  print  the  results 

=  periodic  statistical  raC 

fr^rL^ction^r^r^  determined  at  execution  time  and 
statLents^  ^  ^  various  options  being  evaluated.  The 
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•  ■  ■  so 

f.fj  '  S  M  f 


*)  \ 


initialize  an  array 
distribution  output, 
the  statements: 


used  to  store  the  variables  used  in  the 
For  the  first  call  to  Subroutine  PRINTR, 


i f t JMAffK I 
00  70  J*  I 
^0  «  RC ( J  )  •  n 

^(WIIIlD  7 
JRARK  I  •  (I 


L  r  I  >  CCl  TO  80 

5e 


array  that  creates  the  variables  used  in  the 
’.^tribution  output  and  rewinds  an  intermediate  disk  file  nn 

Jrintrf  J?  ??  .J  ‘»e  first  iteration  is  being 


0  0 


‘  ^  «  I  1 1 WOR . L  T  I  »  00  TO  100 
NTHAX.MAKOrNPir  ,  W  T  0  T  R  .  f»0f  H  T  I 

rr<«oo» irurs.n08tat>  Rt  ii  oo  to  too 

WRI  TC (6.80001  ttRO.HOOt  .  (NI  iBf I  I  1  j, 

^  I  OS'" 

r  ?7,ooI  soot, .N«l«. t 1 . I 

I  •  I  TCROP  L  T  1100  TC  too 
R*»l  TC  e6.5003» 

w  R  I  T  e  (  6 . 8  0  0  •»  I 


. RTCTR I 
■ i • I . NOTmT ) 
I  . Nnr  t 


the  number  of  mines  by  type.®"ex??  the®stSlments:*’®' 


i 


i  GC 


8tG»0 

00  110  I • I . NTOO 
Sum • t I mc MV « I  I »  t 

«  T  ( SUM  IT  B  t  0 ) 

R I  0 -Sum 

tcto*tgtoCl ( I  1 

SMP0«SWR0CL  I  I  » 

I  MMVT  IMCMV  (  I  I 
COMT I MUC 

T  0  r  ^ I n«8 1 o 


G  T  Of  L  I  i  I  • SMPOC  L  ' 
00  TO  110 


I  ( 


rDo“LOOP*'?,^2^t^  iteration  output  is  desired, 

from  Format  M  into  the  variable  HOL.  ^naracters 
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Ml  "I  Vi  idV^4'<atmVP 


I  ?0 


I  90 


190 


?00 

300 


1  »  !  »  t  C  «0^  L  »  I  >  00  TO  5  10 

WRtTFl6.?0'0’ 

DC  300  {•I.NTMAX 
00  1^0  J* I  .  1 6 

OUT  I  j  t  ■  I  H 

^Fl».LT.^^  EMCOOt«9,TOOI.OOTt|>»  IRUNS 

encode  i9. 1001 , OUT  tai  .  i  .  «  .  . 

I r  c  NT CT P . 0€  .  I  .  AND  NHT  GT.OJ  E NC OOC  < 6  .  »  0 0? . OU T  <  3 »  I  NAILLM 
ir.Mioip  0€  i.AMO.hOfwi  &T  01  tNCooE n . 1 OOM  .OUT  14  1  1  nkillo  ii 
KINTCIP  OC  I.ANO  NV*P  Ot  01  t NCODE  n  .  I  004  .  out  1  5 1  1  NKILLIIll 
H.NDruI  0£  I  »M0  IBlflP  01  01  tMCOOC  19.  1006.0JI  Ibi  ■  NDfOA'iil' 

If  NIOIP  Ot  i  »NO  IPTIIH  Cl  01  CWCOOt  I  I  0  .  I  OOT  .oul  1  /  ■  NPT8  '1' 

If  NOrul  0£  11  ENCODE <9 .  I  009. out  101  1  NPreOTili 

Ifll.OT  MNIl  GO  TO  180 

E NCOOE  I  I  0  .  1  007  .  OUT  I  91  1  NNOETIII 

t nc oor 1  I  0 . I  007 . 00 1 ( I  0 1 1  miebiiii 
ENCODE  IB.  lOOS.O'JTl  1  1  1  1  NNSNPT  I  I  I 
lEII.OT.ll  GO  TO  ?00 

IEINGTANT  Gt  O'  encode  '  6  .  1  00^  . OUT  I  I  ?  1  .  NTLOOT 
I  f  I  NAD  I  V  GT  .  0  1  ENCODE  'EJ  .  I  0  I  1  .  OU  T  I  1  J  I  1  tOTfl 

I r  1  NODE  . OT  .  1  1  ENCODE  I  7 .  1 0  I  4  . OUT  I  I  4  I  1  SnPO 

ENCOOtiB.IOlS.OOl'lb''  INNv. 
t  NC COE  I  8 .  I  0  I  1 . OU I  1  I  8 '  I  tOtSIN 
N*  1  I 

If. I. 1181  N.I6 

UR  I  TE  I  6 . 8000  I  I  OUT  I  A  I  .  K  •  I  .  N  I 
CONTI NUE 


The  next  statements : 

I 


i 

1 

! 

i 

i 


I 


f 

I 


3  J  fJ  00  J^0  I  •  1  .  NT  OT 

DiST(l>«NKItL(M 
0  I  b  T  t  t  *  9  )  •NK  I  L  (.  0  I  I  > 

PlST(|«lQI*NKlLLi(l) 

U I  ST  t  1  * -NPre !  T  I  I  I 

00  330  I  -  I  . NOrwT 

0  I S  T  I  I  •  I  9  > •NOF  0 AH  I  I  I 

330  0iSTlt*e9i«NRrB0T(|) 

DO  3N  0  I  -  I  . NH  T 
0  I  ST  (  I  *  30  I  •NHOE  T  (  i  ) 

OtSTM*37)*Nir0Tl(l 
5**0  D  (  b  T  (  I  >•  I  aNHSHP  T  (  I  ) 

DISTl9ei«T0TS]N 

store  the  data  used  in  the  distribution  output  into  the 
DIST(52)  array.  If  distribution  data  is  desired,  the  state¬ 
ments; 


I  r  «  1 0  t  bOP  L  T  II  00  TO  360 
DO  390  I • I . 9P 

iHO  XPO '  >  1  • AHAX  I  I  IPO  I  1  I  .  0  I  S T  (  I  i  I 
WP I  T  C  t  7  .  0 1 5  T 

determine  the  maximum  value  of  each  distribution  output  vari¬ 
able  and  store  the  distribution  data  on  Tape  7 .  In  the  next 
statements : 


J  JRO  00  570  1  -  1  .88 

i  %lAlALI1.11*8T*lAEll.Il*0lliTtII 

'  570  ST  AT AL  I  8  .  I  1  -RT  «  I  At  18  .  I  1  *01  ST  I  I  1  •  "8 


I RN-  I  RUNS 
DO  380  I  -  I  , S? 

STATAL<3.  I  I-STaIal  t  ]  .|  (/RUNS 

STAT»L(^.lt.(STAtAH^.II-(6IA'ALn 
IF(STATAL<4.1I.GT.0.I  STArALIS.n. 

CONTI NUE 
HR  I  TE  1  6 . 6000  I 

K-NTOIP^s’”' 

K^^rTpIir  '  'Sr*TAl.  M  .  J1  ,  I 

KUori^?^“‘  “«'^'^'6.60S0M.STArAU,,.J..|. 

i-NTGlpIao'  '  M  ,  J.  ,  I 

I F  ( NOl  Ht  . 5T  ,  0  I  HR  I TE 16,6050 ) 

K'NiF;T!a5"'  “'  “’"^^<«'6»60.Mr,fA,»LM,O,, 

AL  (  I  ,  Jl  ,  I 

IF(NMr,LT,|l  00  To  MOO 

k”n|I|t!3;®‘’®‘”  .  J.JI  .K1 

1  F  f-NOOC  .EO  .  3  I  HR|T£(6,6|00ll(51ArAlM  M  I. 
HRI  TE(6.6U0MStAtAl.l  1  .ip,  ,:r  i  ‘ 


.  I  »  •  • 5  I  / RUNS (  /  t  RUNS 
SORT(STATAL(M,Im 


J»  J  . NTGTP ( 


I  r ( I  0 » SOP . GT , 0 1 
Rt  f  URN 


CALL  0  I  S  T  R  J  NM  T  .  N  T  G  T  P  ,  N[)F  W  T  > 


provide  a  call  to  Subroutine  DISTR  to  print  the  distribution 
data. 


Subroutine  DISTR 


'  -ifi  t■^^  ■p)  >aw-*«  ,  sfi- 


DATA  lfM'f'IOM(|X,BHlN!E,aMHVAL..lM»1,,JHA7.,3HA7,,3HA7 
5HA7, .3H3X, , 1HA7, ,3HA7, , 3H*7. ,3HA7, ,3HA7, .3H3X, , 
3HA7,,3HA7,,3HA7,,3HA7,,3HA7.,3M3X  ,tHI,6*IIH  )/ 
data  JfMT/IOHiax.SMCLAS, IOMS/(3Xia,6X.3HR7, ,3HR7, .3HR7 
3HR7. ,3 MR 7, ,3H3X, .3HR7, .3 HR 7, . 3MR7 ,,3HR7,,3HR7.,3H3X., 
3MR7,  ,3  HR  7.  .3HR7.  .  3MR7,  ,3MR7,  ,3M3XI  IH  I  ! 

OAIA  NFRI/IOHI IX.8HINIE,5MRVAL,,3HA7, .3HA7. ,3HA7, ,3HA7 
3HA7..3HA7,  ,3HA7,  ,3H3X.  ,3HA7,  ,  3HA7 ,.3MA7.,3HA7,.3HA7,. 
3HA7 , . 3HA7 , , 3H3X  1/ 

DATA  KFi1T/IOM(2X.5HCLAS.IOMS/r3Xia.BX,3HR7..3HR7..3HH7 
3MR7 . , 5HR7 , . 3HR7 . . 3HR7 , , 3H3X . , 3MR7 . , 3HR7 , . 3HR7 . . 3HR7 , 
3Mft7 ,  .  3MR7 ,  . 3MR7  ,  ,  3H3X I  .  I H 1  , 8*  I  I H  )/ 


provide  Hollerith  data  from  which  the  output  formats  can  be 
created.  The  statements: 


ARN-  I  O/ri.OAT  I  IRNI 
DO  2  0  I  -  I  , 5a 

I  NT ( I  I « I F I  X I xRC( n I /eo« I 

lr(lNTl|).ET.lll  00  10  10 
L ' AL  00 !  0  I FLOA  r  C  I  HI  (  I  I  )  I 
L  I  •  I  0  •  L 

I  H  I  I  I  I  •  I  I  N  T  1  I  I  /  L  I  .  I  )  ■  L  I 
10  DO  ao  K- I .ai 
eo  0 1  ST  6  I K . 1 ) • 0 . 0 
rewind  7 


computed  the  interval  over  which  the  distributions  are  de 
fined.  The  statements: 


DO  50  I • 1 . I RN 
RE  AO  I  7  I D I S I 
00  50  J -  I  , 5? 

Ki'ioiSTijii-.aii^FLOATnNTijn.a.o 
IFIDISriJI.EO.O.biKi.l 
50  0  I S TB I K 1  ,  J I  .0 1  STS  I  X  I  , J 1  • XRN 


compute  the  distribution  data  for  each  variable  to  be  output 
The  next  statements : 


WR  I  TE  I  6  ,  1  000  I 
WR I TC  I  6 .  I  00 1  1 
HRI  it  1  6,1  007,1 
00  05  I . 1 , 27 
i,F,Hr  I  r  I .  I  F  Mt  ( I T 
Hr M r,i  I  I  -  jFMT  (  I  I 
B'S  continue 

DO  90  1-1.15 

I  Ut!  t  1  I  1  »'t  M 
DO  3  0  J  « I , .  a  I 
out  I  J  ,  I  1  -  I.H 
90  ,r  ON  T  I  Nuc 


print  the  first  page  headings  and  initialize  the  output  arrays 
The  next  statements : 


;  r  « WH!  n  I  •  o,j  *  .j  M  Q 
DO  lOD  l•l.NrQrp 
I  OUT  <  I  I  •  t  NT  i  I  1 
L  r  NT  I  I  »t>  t  -  SH  I  7  . 

NTNT  I  I  • 9Hr  7  .  S . 

9H  DO  95  J«  I  .  ?  I 

OUTlJ.Ii«OISt^ij.|t 
95  CONTI Nue 
00  cont INUC 


store  the  intervals  and  the  distribution  data  for  the  intruders 
dcimaged  by  mines  into  the  output  arrays  and  create  the  output 
formats  for  the  number  of  intruder  target  types.  The  next 
statements: 


MO  t  r  (  Norwr  .  L  T  .  M  go  to  iso 

00  150  i-i.NTorp 

I  a« I *s 

10Ur(|*5l«INTM»5l 
Lrnr<  IBM3HI7. 

NT  NT  I  I  B I  •5MT  7  1  . 

t  00  I  **5  J-  1  I 

0UllJ.I*5>«0l*iT5<J.l*5l 
t  <«  5  CONTI  NUC 
5  0  C  O  N I  J  N  H  » 


store  the  intervals  and  distribution  data  for  the  intruders 
dcunaged  by  direct  fire  into  the  output  arrays  and  create  the 
output  formats  for  the  number  of  intruder  target  types.  The 
next  statements: 


160  IftNDfNf  I.  T  M  GO  TO  POO 
DC  195  I • 1 . NTGTP 
I  I  7  •  I  •  1 4* 

I  OUT  (I  • I  0  I  • I MT (I  •  I  0  I 
LTHTI 1 mi#jMl7. 

NTMT  M  I  »♦  ’  •5Mr7  .  3  . 

169  00  190  J* I . P I 

0UT(J,  I  *IOt>OiBT5lJ.  1  MUt 
>90  CONTINUE 
195  CONTINUE 
POO  NS t  TE  < 9 . L ENT  I  I OU T 

NBlTE«6.NrHTM | .«0UT' .I5».1*«P.P0I 


store  the  intervals  and  distribution  data  for  the  intruders 
damaged  by  indirect  fire  and  print  the  output  data.  The 
next  statements: 


I r  I NOruT  L  T  I  )  CO  l O  500 
00  P  I  0  I  I  .  I  5 
I  OUT  «  I  I  •  1  H 
00  P I  0  J« I  . P I 
OUT  (  J .  I  I  «  t  H 
? I  0  CONTI nUE 

00  P I  5  I  • 1  . P7 
lent  M  I •  I EHT (  I  I 

NPNT  I  1  t  • JENT  (  !  I 
P15  CONT INUE 

HR  I  TC  <  6 .  I  OOP  I 
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-ruS  fifrl  itiBiiiWten  liltfH~i . 'Tf^  ■ 


UR lTEi6.  10071 
OC  ^^0  1  •  \  .NOrwT 

t  00  M  t  .  •  I  ‘  •  I  *>  * 

L  ^  M  t  M  »  ^  •  JH  J  1  . 

«r  H  f  M  7  •  . 

00  PtO  J* I I 

0UTIJ.I)-0lST^>«J.l*>5* 

0  C  OHT  I NUC 
(7*0  continue 

no  I  •  I  . NT  OT  P 

IOUTII*%>‘«NT.>*?0* 
lent  »  I  •«  I  •  iHl  7  . 
nr  NT  C  I  • 0  »  *  %Mf  i 
00  ?80  j* I . a  I 

OUT  i  j  .  I  »  -0  »  ST  I  J  .  »  » 

^60  CONT I NUe 
?flb  CONTINUE 

00  300  I  •  I  . NOT  uT 
I  OUT*  l*lO»-INT*  I  *05  > 
uFMT*I*I*«i*3h|7. 

Nf NT  (  I  •  I H  »  -bHr  7  3. 

00  J*  >  .  2  I 

OUT  *j.i*»o**ot‘ifs«j.i  ’PS) 

^  9S  C  ON  M  NUC 
300  CONI \ NUC 

UN  I  TC  I  6  .  Lf  HI  M  OUT 

W«  I  TC  •  6  HF  HT  I  I  I  .  *  OUT  l  I  *  I  .  J  »  .  7*  I  .  I  ^  ‘  ‘  ^ 


initialize  the  oitjS'lo^Itz . 

statements; 


MRlTC<6.tOC3« 

^C0  M0 I  TC  ( 6 .  I  000  * 

I F I NNT  LT.ll  00  10  700 

0  0  S I  0  I  •  I  . ^  7 
LFNT  I  I  »  -NFMT  •  I  I 
%I0  HFHTiM-NFMiMi 

00  500  I  •  I  .  I  S 

I  OU  T  T  I  •  •  I  H 

00  S0O  j ' ;  .  c*  1 
00  T  *  J  ,  I  »  •  I 
*^00  CONT  I  NUC 

mPI TE ( 6 . I ooe I 

uRITCi6.tOOSi 

UP  I T  e ( 6 . I ooe  * 

00  590  1  • 1  . NH  r 

IOUTMI«INTII*S0) 
LFHT*I»0>*3HI7. 
ur  u  T  {  I  ♦  0  I  ■  SMI  7  .  i  . 

00  SN  0  J-  1  .  0  I 
OUT  *J.1»*P«STSIJ.  1*30  1 
SN  0  CONT  1 NUE 
S50  CONI  I  NOE 

00570  1*1. NMT 

I  OUT  I  t  *  7  »  •  I N  T  t  I  •  37  > 
crNTM*lOl»0H|7 
MFMTM*I0T»NHF7.i 

00  560  J  •  I  .01 

0OTlJ,l*7»*0lST5«u. 1*371 

560  CONT I NUC 
570  CONT I NUE 

UHTTCtb.LFHT*  JlOUTiM.l-l.l**' 
UN|TC‘5.HFHTlt I .«OUl*  1*1 -U*  .U-> 


initialize  the  storage  arrays,  write  new  headings,  and  provide 
for  storage  of  distribution  data  into  the  output  arrays  while 
creating  the  output  formats.  The  output  is  printed  for  mines 
detonated  and  mines  in  field.  The  statements: 


J  n  • 6 .  t  00  3  I 

■»0  0  DO  710 

LTMT  ll-NrNTil) 

WfMT . I >«KfnTl : » 

*'10  C  CN  I  I  NU€ 

NTMT  c  I  3  > -^nr  7  3 . 

00  7  I • 1  .  1 9 
I  Out  <  I • • t  M 
no  7,  0  '  •  .  I 

OU  »  '  J  .  I  •  '  M 

C  t  NUC 

OO  7m)  I  .  I  .  NHT 
I  OU  I  M  »  •  I  N  T  C  I  .  4  W  1 

LrMTl|.ej.3M|7. 

Hf HT  I  t  ♦? I  -SmT  7.3. 

00  770  U-l .^\ 
our«J.n■olST5(J.l*^^) 

770  CONT  t  NUC 
7g0  CONT I NUC 

I  OUT (  I  0 )  • I  NT  ( 5a  I 
00  790  J» I  .  ? 1 
OUT  I  j  .  I  0  1  -0  I  S  T  5  5a  J 
790  C  ONT  t  NUE 

UR  I  TC  I  6 .  I  008  I 

MRircte.ioosi 

UR (  TE  I  ft .  I  009  > 

URirE'ft.LrNT)IIOUTt|l.I*l.l<4t 

UR|TC«#.N»MT)(|.fOUTlJM.J»..i*l,|*.».l-«/.aO» 
RE  r  URN 
e  NO 


provide  for  storage  of  the  distribution  data  into  the  output 
arrays  and  create  the  output  formats.  The  output  is  printed 
for  mines  swept  and  breach  time. 


Subroutine  TABINT 

The  purpose  of  ‘this  subroutine  is  to  perform  a  standard 
linear  interpolation  [Equation  (15)]  for  any  of  the  probabil¬ 
ity  functions.  The  first  executable  statements: 


I  0  N9*NT  A9LC  *9  7 
NE ‘Nft  O 

00  50  K5*Ne.NC 

50  CONnwtE^^  ^^  ***^*^'*"''**'  ***°  OISIPO  It.  R*N0PRtK5*  I  1  .  00  10  55 

00  TO  ftO 


determine  the  table  location  in  the  function  arrays  and  the 
two  range  values  which  bracket  the  distance  to  be  interpolated. 
The  statements: 
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'  •<ANo»-P  '  K9  •  J  I 


^3*5 


n  □ 
0 


-KBI  I  (.PBOBIi  IKl,  .  iOISIHO-RANCP*,.^ 

GO  I  o  '.'0 
PRB I Ty-C 

«£  J  UPN 

r  NO 


perform  the  interpolation. 


Subroutine  RNORM 


1  0 
ao 


♦♦n  ■  4  •  Pant  (  Oump  r  . 

Q  •  ABSii  0*PNf9> 

•  -9»M.0-0' 

Q  •  •  ?  •  •  AL  OG  C  Q  I 

V  *  SOR I  <  0  I 
Sign  •  i 

l^'RNIB-  Si  10.10  SO 
S I  ON*  '  I 


0*<»  SI95I7*  BO?8S5«V 
CtG  •  I  .  t  .  H  5?  760  •  V  • 
ft  S  I  A  R  T  .  I  V  -  0  /  Cl  0  I  •  S  I  0  N 

Rl  »  URN 
r  NO 


•010  3?e 

i  09?<>9  •  V 


V  •  V 

00t3?0e»vvv 


perform  this 
of  zero  and  a 


function,  returning  random  variables 
standard  deviation  of  1. 


with  a  mean 


Subroutine  IPACK 


fc™aSj„"’Sr:hrvarUblfSS^"=  ‘ 

event  X  and  Y  coordinates  contains  the 

timing  cycle  or  the  reauirfaH  point  for  the  mine 

applllable)?  ?L  (i£ 

The  firat  executable  statL^nts:  ®«<lbentlal  mine  number. 


I  «  •  O0X  • 

•  0B»  • 

JwORO  •  0 


I  0  0 
I  C  0 


one^decimal-digit^accuracv^and"'s"^  coordinates  with 

ments:  ^  accuracy  and  set  the  word  to  zero.  The  state- 
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I  -lORl  •  I  H  JRD  OO  I  H  :  Nf 
l-*0»#C*l*«ORO  OR.SHif  rtNOPtP^. 

Ii.O»D*lMORO.OP  SMirf<  ll.au' 

JWORO-IHORD  OR.SMIfTi  tABS<  S««  .^el 

I  r  -  I  *  .  L  T  0  >  lUORO-IWORO  OR  I  0  0  0  0  0  0  0  C 0  0  0  0  0  B 

iwORD'IUOROORSMirrt 

»f  '  UPN 

in') 

pack  the  information  as  described  in  Table  2  of  the  Mathematical 
Model.  The  SHIFT  function  is  a  Control  Data  Corporation  library 
function  which  shifts  the  bits  right  or  left. 


Subroutine  UNPACK 


The  purpose  of  this  subroutine  is  to  unpack  the  event  in¬ 
formation  which  was  packed  by  Subroutine  IPACK;  the  process  is 
simply  the  reverse  of  that  used  in  Subroutine  IPACK.  The  first 
executable  statements: 


:  fa*  flOAT-  SHIFT. 
)Ba-rLC*r  SMlffilyypo^ 

^IMR.imorD  and  ioooooo 

} f  .  I  TC  HR  He  0  >  09* •  0B» 


M  AND  177777 
cH.  A  NO  .177778 
riOnOOOQCB 


unpack  the  event  X  and  Y  coordinates  and  set  the  sign  of  the 
X  coordinate.  The  next  statements: 


NOB  1 • Sh I F T  t  I  HOP D .  19l  ANO  J7B 

iHINe«IW0R0AND  777778 
>0  »!•  SHirrilMORD.  ?Ot.ANO.S77B 

?  0  RC  7  URN 
e  NO 


unpack  the  event  type  and  the  event  sequential  number. 


Subroutine  NDFIRE 

The  purpose  of  this  subroutine  is  to  evaluate  the  effects 
of  the  indirect  fire  rounds  employed  against  the  intruding 
targets.  The  first  executable  statements: 


fa  t  GC ( R  > •  . 5 •SORT (1.-rKPi> 
P  i  «  1  mi  S986SH 

‘iwp  1  -SORT  I  PI  I 
IhT  iHlVAPliVAP) 

HM£  .  ; 

lf<NSl'6*IWTi  i^r  I) 
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\ 

i 

SJNIHP*'5lN'AN0|Hp!|VAP  • 
ANG*UINAtii  i  I  VAP) 

COSANO^COSlANOi 

SlNAMC*S>NlANO> 

NH • NWC  P  V  '  I  V  AP  I 

IF(|AUNS  Nf  lP9|N1ioC  TO  90 

NVOL«NVrACA«  IVAPI  -NVL  I  Of  '  IVAPl  •  | 
MR|  TC  <6.  IU0'J<  I  VAP.NVOL  .  tWT 
90  CONTI NUC 


compute  several  variables  which  are  independent  of  the  target 
and  round  and  print  the  optional  output,  if  required.  The 
statements : 


00  •^00  I*'  NIGO 

if  0T»Nw  .  01  99P90  t  Go  TO  ^OL 

w  ♦  •  T  0  f  X  ft  I. 

T  •  .  t  f»  I  r  N  N  I  I  I 
ll'oMTGTfP  I. 

S  ij  P  V  P  «  •  i 


consider  each  active  target  and  determine  the  target  X  and  Y 
coordinate  and  target  type.  The  following  statements: 


uC  vBO  J-1.Nm 
t  1  >/AL  *1  J  I  I  WI  I  f  T  ? 
K  001  I  •€  I  (  I  NT  .  M  I  .  I 
X  H • RO  T  ONPX I  I  ^  AP .  j I 
«H-Roronpri ivap.ji 


consider  each  round  employed  at  the  volley  aimpoint,  and 
determine  the  value  of  the  effectiveness  index,  the  code  for 
the  effectiveness  index  used,  and  the  X  and  Y  coordinates  of 
the  desired  mean  points  of  impact.  The  statements: 


RO-AB&I ) XhXI i •SlNANG*! fM-r' I 'CObANGi 
00«A9SI  •  •  KW-  XT  >  •COSANO*!  TU  YT  »  •SIMANGl 
OSO-PO* •^♦oo* •? 

IftDSQ.CT  r  NRb  I  0  <  t  W  T  .  I  r  T  I  I  00  TO  ‘♦BO 


compute  the  distance  in  range  and  deflection  from  the  center 
of  the  intruder  target  to  the  desired  mean  point  of  impact 
[Equations  (42)  and  (43) ]  and  if  the  round  impacted  near 
enough  to  the  target  to  cause  damage,  the  statements: 

APH0*PM0l I WT . I M I 
I ♦  •  ! C  MH£  OT  I  .  00  TO  I  i  0 

PQWCP*-IN9UBMwTi«»£LSU6(lMT)«CIVALWtPi*PAfPAD  lHTl«*ai 
IfiPONfP  Ot  -337  GO  ’U  lOP 
A  PHD •  I 


1 


GO  '0  I  O** 

•  '0  riP»Doy£v, 


compute  the  probability  of  damage  given  the  taraet  is  in  i-ho 
(Kw!"  munition 


«0G  (■  f  L  -  e  r  M«  SRP  i  •  P  A  T  RAO  (  I  NT  I 
MO  00  TO  M  ?0  .  m  0  .  1  *>0  .  I  60  I  .  KOOf  J 


and  hranr-h  I?®  Pattern  for  the  ICM  weapon  type  [Equation  (44)1 
^  appropriate  section  of  the  subroutine  de¬ 

pending  on  the  code  for  the  effectiveness  index.  For  hiah 


I?'!  IfllCBMC  II. GO  10  I  iO 
.1  -  ••COS  I  HP 

ClL-?.*SQRTieiVAL*  ALHIIA  T  /  P  |  I 
t  !«•€  IL  / AL  MBA  t 


and^ViM'*'^  target  length  and  width  [Equations  (47) 

and  (48)]  based  on  the  ratio  of  the  target  lenath  to 
get  width  [Equation  (46)].  The  statements:  ^  ^*'® 


I  10  0Cfl0n*i7.6*ACPl 

(OCNOHl  *4  Apt  i  -  <•  /  DC  NOR  > 

0CN0N«176*0€P( IVAP) 

0SSP«CTM/S04ir(0CN0Ml*C«P(i-«*  •00«*P)/DCN0N) 
1  }*>  »‘«CK»RS3P«0$SP*RCL«N0>  iMt  •  'APmO 
GO  TO  ••60 


compute  the  single  shot  probability  of  hit  in  rann^  a 

jnjr!s;.is 


•  ••o  c  rw-sQur  1C  t  va*  i 
CTL’CTN/SININP 
00  TO  ^^n 


213 


w 


for  this  munition  [Equations  (53)  and 


t  90  t  f 


r  »M-50»T  ,f  I  V*, 
GO  » 0  ieo 


compute  the  effective  ♦-=. 

Sasr[EqSati^n^^?2rr" 


160  '"'•«".o.,r-,,,7o.,eo 

00  TO  I  90  '  I  I  I  1  .1  I  V,,  , 

180  €  To  .  ,  ,BJ  ,  ,  ,  ,  ^ 


f  'w  I  ARH  I  I  r  t  I  .J  .£  J 


compute  the  effec^^ve  4. 

(56),  and  (57)1  jf  length  and  width  fEaus^• 

statements;  of  the  target 


' ’  '*'8188/005  I r 


If  'SM.DOL  I  I  I  ,v»L  .  00  10  ^^.0 
If  I  '*»P*Di  ITT,  ,?05  ^I0 

•'*88.0.,T,,..,H.OOO-t,v.o.,,r,o 

?I0  €n..£,i..c,^..,py,  Iff  ••<»HA00i-civ.i,,/t,„ 


3ii  rti  -It: 

00 


recompute  the  effecUve  4. 

The  statements:  arget  length  [Equations  (59)  and  (60)] 


''^0 


vap.t 

ei-lETR.?  .00."?p'of  *••"6'’"  VAP)  I 
“S6P-BI 00. A  1  ,  .s?r  '  *  *6-0C8(  I  v,p,  , 


00  T  0 


»  5^ 


-e 
.€ ru■^ 


B 1 00 1  Ae  > 


ooi •Brooie?! 
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.  I 


1 


compute  the 
tion  single 
(66) J.  The 
computed  by 


range  single  shot  probability  of  hit- 


-'0  SU»VPR.SUI>»PB.,  I  p,-, 
-90  continuc 


statements^^*^^^^^^  target  survival  has  been  computed,  the 


I  ^  ■  SUMVPR . £  Q  ,  I 
P.IPM.l  -SUDVPP 
PM-RAMr I ounnr  > 


00  ro  500 


a  unifSr^^Lndom^^iiieJ  is  JbtIiJed^*?h  <68)1  and 

compared  to  the  probabilit-v  «^*i"®***  random  number  is 

and  if  tne  ' 


■•8  5 


I p < RN . cr . PORN  I  00  to  -90 
IPtIRUN*  NCIpnint.  00  to  *•« 
MR  I rr f • , I  00 1  I  I . « t .  V r  porn 
tor TNh.  I  1  .tOtYNMI  I  ,  .  100000 

To- TSV«r0tV£L ( t I 
TflTorPt  I  1*9990. 

'ct  VCL  t  I  )  *0  . 

i-trtiN.i.frT|„., 

iriNittc*(ii  ot  0  I NSPI F I .rspl r t 

MX  U  L  T  -  NK  Hi.  t  .  I 

NXII  t  I  [  I  rr  I  .NR  UL  I  <  I  1 1  ,  .  I 


I F ( MOr A . L r . I  100  TO  soo 

00  Hi?  L • I , MOr A 

-r  ^  -ooa. 

f  U»N 

t  un 


areas  and  print 


-iw7?r3rr»r 
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Subroutine  DIRFIR 


The  purpose  of  this  subroutine  is  to  evaluate  the  effects 
of  the  direct  fire  munitions  against  either  the  intruder  or 
defender  targets.  The  variable  IDAM  controls  whether  direct 
fire  or  return  fire  is  being  delivered.  The  first  executable 
statements : 


eiOO<X)-  l  CxPi- 

1  D  •  I  UAH 

2  [>  A  M  •  C 

1  I  •  I  M  f  UE  f  .  NC^  i 
L  •  i  UT 

iriio  01  i»  L*iTr 

BRf  L  •*#(  (.  I  L  .  i  0  I 
BCCP^ACfPil . lOi 

K  ooe  t*AC!iiur.Mr.?«iD  i 

£IVAL*AeiMMT,lTT,?«tO> 

I f  ( KOOC I  C I  I •  CO  TO  50 
I  NO-  I  DP  <  NOr  .  IT  I  .  I  0  I 


initialize  several  variables.  If  the  effectiveness  index  is 
in  terms  of  the  mean  area  of  effectiveness  for  fragmentation 
in  the  ground  plane  (MAEf) ,  the  statements; 


AL  HRA  r  .  I  e • A  I  I  I  NO  > 

tTL•^  •SOPritIVAL'ALMRAT  S  l>*l*39e65M 

CTM*CtL/ALWRAT 

0rN0M-l7.6«ARCP< IN0>*«?*rTL*«? 
RSSP-LTl  /  £*ORriOENONl 

0t‘N0H-l7  6•A0ePltN0i••^«eTw••? 

ossp-ctw/soHrcocNONi 
SSP0-RSSP*0SSP«BReL 
CO  ro  100 


compute  the  target  length-to-width  ratio  [Equation  (25) ) ,  the 
effective  target  length  and  width  [Equations  (26)  and  (27)], 
and  the  single  shot  probability  of  damaged  based  on  the  range 
and  deflection  single  shot  probability  of  hit  [Equations  (28), 
(29),  and  (30)].  The  statements: 


50  ir-SCiPCT  0  \  00  fO  60 

X0-(ICTX0LMISI  •DCrXlNOrM**^ 
to-  «  TOrtNUc  I  I6J  -OlFt.  NOT  |  |  • 
RN0«  SORT  (  XO*  YD  I 
BCtP*  0 0 i • RNG « ABS ( BCF p • 


compute  the  distance  between  the  intruder  and  defender,  and 
convert  the  circular  error  probable  from  mils  to  feet 
[Equation  (31)].  The  next  statements; 
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ft t  Di NON >  t  7 • accp 

k  IfMOCf.MOOfOlO 

ve^T-tAiiMTiirT) 

HOWtZ"?  •TAffffAOtlTT. 

iriMfPJZ  Ll  Oil  Hr>R  1  /  .  I  I  A&i  .  I  T  T  J  .  TARWf  I  T  T  >  I  ^ 

GO  T  0  ao 


horizontal  dimensions  of  the  intruder, 
munitions  are  employed  against  the  defender, 

tne  statements: 


veai •ocrHT i imt  i 

H0O|?-a  *OirRAO<lMYl 
If'MORl?  It  nil  HOR!/*4i*iri 


# 


compute  the  vertical  and  horizontal 
In  the  next  statements; 


dimensions  of  the 


defender . 


eo 


B I  . Vtn  t  / OCNON 
BSSP-B  *8  I  GDI • I  I 
"B I OGl 9 1 

'iSPn.»SSP*D<lSP'BR( 


•C  I  v»l. 


probability  of  damage  [Equations  (32),  (33). 
and  (34)1  is  computed.  The  last  statements  in  the  subroutine: 


100  RN«RANr I ounnv  I 

i r  ( PN  L  r  .  ssro )  I  DAM- I 
PM«]  T  V«$SR0 
MC  TURN 
CNO 


obtain  a  uniform  random  ni^er.  The  random  number  is  compared 
to  the  single  shot  probability  of  damage  [Inequality  (35)1. 
and,  if  the  target  is  damaged,  the  variable  IDAM  is  set  to  one 
to  so  indicate  to  the  calling  routine. 


Subroutine  CKEVTM 

The  purpose  of  this  subroutine  is  to  determine  if  any 
t  events  should  occur  before  the  distance  related 
event  takes  place  and  to  sequence  the  events  in  the  proper 

possible  time  ordered  events  are  direct  fire  shots, 

wile?  f^an^iSireS^  delivery  of  the  second  or  subsequent 
volley  at  an  indirect  fire  aimpoint.  The  first  statement^ 
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0?H(»4S>0h  THil^Ol.lPOSttiOl 
i  f  I  NOF  *  o1  01  GOTO  ‘iO 
I  f  (  I  A  U  T  0  I  CO  TO  50 


provide  for  local  storage  and  determine  if  any  time  related 
events  have  previously  occurred.  If  time  ordered  events  have 
not  occurred  previously  and  the  event  is  not  an  encounter  of  a 
direct  fire  area  entrance  boundary,  the  statements: 


t 


J  5 

I  6 

t  <9 
?0 


I  b  »  GO  TO  0 


Li  >6  OM  NOBTP^  01 
f  NOBTP?  01  i6i  CO  'O  15 
I N01 A • I 
CO  TO  ?  0 

CALL  5^INT<lbVIFA.tSAvC.lT.|B|T.K0rfTN  || 
NOF  A*MAX0  M  r  .  NOF  A  I 
CALL  TCTNOV 

00  10  J* I . Noruo 

I  F  (  NOC  FC  A  MT.Jj.lI.IJ 
NOF -NOE  Ft  A  M  1 , 0  »  ♦  I  00 

I  r  I  I M  T  or  « I  NOF  »  .  c  T  0  0 

»  N  T  OF  P I  NOf  t  -  0 
'  CN  T  I  NU( 

PC  T  UPN 


GO  TO  10 

ANO  T  NT  OF  P I ND1  I 


L  T  9000 . 


call  tctnov 

PC  T  UHN 


CO  TO  I e 


provide  for  a  call  to  Subroutine  TGTMOV.  If  the  intruder  has 
encountered  a  direct  fire  area  entrance  boundary,  Subroutine 
STINT  is  called  to  save  this  intruder  number  in  the  ISVIFA 
array  for  subsequent  evaluation.  Then,  Subroutine  TGTMOV  is 
called,  and  all  defenders  that  may  fire  into  the  direct  fire 
area  are  determined.  Control  is  then  transferred  to  the 
calling  routine.  If  there  are  time  ordered  events  to  occur, 
the  next  statements; 


50 

90  60 

1  • : . 1  SO 

»  P05  1 

T  M  t  1  1 

i  <  •  ! 

•TMTC1P.it 

60 

CONTI 

N  Jl 

00  100  i • 1 . 1 30 

00  90 

J- 1 . 1 30 

t  r  ( T  h 

Mt-TH«jii90 

05 

KEEP* 

t  POST  1  1 

1  P05  • 

1  »  “  1 POS  f  J 1 

IPOS* 

J> • KEEP 

SAVE  • 

1  H  1  1  1 

I  H  t  1  )  . TM I  J I 
1M  J 1 -SAVE 
9C  CONTI NUC 

IF(?MM».0T  iPAVTmi  00  TO  'pr 
i  00  CONT  t  NUC 
l?0  N>jHCNT>MiN0>i.l30l 


sort  the  event  times  for  all  time  ordered  events  until  an 
event  time  is  found  which  is  greater  than  the  travel  time  to 
the  next  position  related  event.  If  the  position  related 
event  in  the  next  event  to  occur,  the  statements; 
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If  O’  j*  GO  TO  i*.n 

V  A'  I  T  0  t  MO  V 
:»‘Noe^p?  Ni  i7i 

CAll  S'INTfISVirA.ISAVl  M.IVIT.KOrrtN.li 
sor  A  •HA ■ 0  ‘  I  T  . HOf  A 
r.  T  »  0  I  e 


provide  for  a  call  to  Subroutine  TGTMOV,  and,  if  the  intruder 
has  encountered  an  entrance  to  a  direct  fire  area.  Subroutine 
STINT  is  called  to  save  the  intruder  number  in  the  ISVIFA 
array  for  subsequent  evaluation.  Next,  a  DO  LOOP  is  entered 
to  consider  each  tin.e  ordered  event.  The  statements: 


I  50 


NOM •Hunr  N  t  -  ! 

5  5H0  r  •  n 
00  1000  HI*  . 

H*  »  POS  HI. 


initialize  the  variable  that  signals  that  a  time  related  event 
may  occur  and  determine  the  event  to  occur  and  the  event  time. 
If  the  time  ordered  event  can  occur,  the  statements: 


irirroi.c*  9000  >  CO  TO  lOOu 
r  T  •  rfiAvTH 

TPAVTHeTTOI 
CALL  TO  TNOV 

tRAVTH*rr-TTOI 


provide  a  call  to  Subroutine  TGTMOV  and  decrement  the  travel 
time  to  the  position  related  event  by  this  event  tivae.  The 
next  statements: 


triH  0T.|?0»  00  TO  750 

ITcN.LT.iOM  00  TO  500 


provide  branching  to  sections  of  the  subroutine  that  evaluate 
indirect  fire  volleys  and  intruder  targets  returning  direct 
Tf  the  event  is  one  in  which  the  defender  en^loys 
direct  fire  munitions,  the  statements: 


NOT  • H  <  I  90 

1 ' I NRAOrO* NCr I  Lt  1*  00  to  90C 
NOT  vp«  t  mTOC  F  I NOF  l 
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determine  the  defender  number  and,  if  the  defender  has  any 
rounds  remaining,  the  defender  type  is  obtained.  Next,  three 
nested  DO  LOOPs  are  evaluated  to  determine  if  this  defender 
may  fire  at  an  intruder.  The  statements: 


00  SOO  I  •  I  .  5 
1  >  •  *  G  T  P«  I  NO  r  r  ^  .  !  > 

irtiPNR  lt  II  00  TO  (000 


consider  each  priority  value  from  the  defenders  ordered  list 
of  intruder  types  to  fire  upon.  If  the  priority  value  is 
zero,  the  defender  cannot  fire,  and  the  next  rime  related 
event  is  considered.  If  there  are  intruder  types  that  the 
defender  may  shoot  at,  the  statements: 


Du  1  .  .>  *  I  .  N  r  00 

IF  NT0T»P  »ISi  Nt  IPRRl  00  fO  ?H0 


consider  each  intruder.  If  the  intruder  type  is  of  the  type 
the  defender  may  fire  upon,  the  statements: 


00  ?70  )(«i.N0FA 

CALL  STINTllSy|rA.MG.A.ieiT.KOF»TN.Ji 
IFlIBlT  ir.M  GOTO  ?70 
IF(N0CFCA(K.N0r>.ir  II  00  to  ?7Q 
00  ’0  3?0 
S  T  Q  LONMNUr 
PBO  CONII NUt 

)oo  CONT 1 Nur 
00  to  1000 


consider  each  direct  fire  area.  Subroutine  STINT  is  called  to 
determine  if  this  intruder  is  in  a  direct  fire  area.  If  the 
intruder  may  be  fired  upon  by  the  defender,  the  statements: 


tUTOFRiHl . rMBH0(N0t*Pl 

K  t  -K 
I OAH* 1 

ISHOT- I 

CAi.L  OIRFIRMOAN) 

I  r  I  I  SVHP  I  5  I  .  0  T  .  0  t  CALI.  SYNOCT 
NRAOrOlNOF I -NRA0F0lN0r>> \ 
|FinRaCi»D<N0FI  Lt.i  »  TNTOrRlNl-9991 
NRraOT  ;  not  tRi  -NRFeOT  (NOtYR)  ♦  | 


several  counters  and  provide  a  call  to  Subroutine 
DIRFIR,  If  sympathetic  detonations  are  evaluated  for  direct 
fire  munitions.  Subroutine  SYMDET  is  called.  If  optional 
output  is  required,  the  statements: 
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IFCIRUNS.NE  IPRINTI  &0I0  1'<0 

«K I L -BH  HI SS( □ 

I r  I  t 0*« . OT  .  0  I  AX  I L -BM  HIT  HIH 
PRINT  900J ,N0F .NOTYP. I IS.NIGTYP ' 


I  I  5  1  .  »K  11  ,  PRi  I  '  ' 


print  the  defender  number  and  type,  the  intruder  number  and 
type,  a  message  indicating  whether  the  intruder  was  damaged 
by  the  direct  fire  munition,  and  the  single  shot  probability 
of  damage.  If  the  intruder  was  damaged,  the  statements: 


IFi10*H.LT.|i  go  to  HTTi 
TGTYNHI  I  ISI'TGTYNUI  I  ISl  *  IDOODO. 
iriNGIAHT.GT  OICAI.L  UNIT 
LEFT  IN-LCf I  IN-  1 
TGTVEI.  <  I  ISl  >0  . 

THTOFR I  I  ISl -9999 . 

CALL  STIMTIlSVIFA.IlS.Y.IBIT.XDFITN.e 

tNTYP'NtOTTPI  I  ISl 

NKIlLDI INlYPl-NKILlDi INlYPi •! 

NX  I  L  L  T  -NK  I  L  L  T  «  I 

I  F  I Nt  t I C S I  I  NT YP I  0  I  0l  NSPL F  t -NSPL f  T 
K  I  •  I  1  S 
X  F  I  «  •  n  .  fl 


increment  several  counters,  provide  calls  to  Subroutine  UNIT 
if  any  intruders  are  associated  as  a  group,  and  Subroutine 
STINT  to  turn  the  flag  bit  off  for  this  intruder  in  the 
direct  fire  area.  If  the  intruder  must  be  diverted  around 
by  subsequent  intruders  in  the  column,  the  statement: 


I  r  I  N  r  T  THOM  NT  yp  »  01  oirALL  oiystT 


provides  a  call  to  Subroutine  DIVSET  to  save  the  intruder  Y 
coordinate  and  set  the  dimension  direction.  The  next  state¬ 
ments  : 


^•7  *5  J'O 

DC  '*85  I  •  1  .NTGO 

CAIL  STINT'ISVir^.l .k.ibit.kdfttn.si 
I  f  »  J  0  I  T  t  T  II  GO  TO  ‘♦05 
NHT  J  HO  «  »  »  • N0r  I  HO  J  I  •  M 
i*  NRriRocn  NHe&)'*8').'*eo.‘4e5 
‘♦80  TMTOrRT  n  «0  . 

J '  I 

>♦65  CONTINUC 

I F  f  J  »  50 , 900 


consider  each  intruder.  If  an  intruder  has  observed  the  re¬ 
quired  number  of  rounds  to  be  able  to  return  fire,  the  array 
containing  the  times  for  the  time  ordered  events  is  updated 
and  a  sort  of  the  updated  array  is  performed.  If  the  time 
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ordered  event  is  one  in  which  the  intruder  is  returning  fire, 
the  statements: 


^lOO  NlNTT-r^tGlVHim 

irtNf(AOr|(MI  Lt  MOO  TO  900 


determine  the  intruder  type.  If  the  intruder  has  direct  fire 
rounds  remaining,  three  nested  DO  LOOPs  are  evaluated  to 
determine  if  this  intruder  may  fire  at  a  defender.  The  state¬ 
ments  : 


J()  600  I  •  I  .  5 

If!  P»R  L  T  .  M  00  TO  1000 


consider  each  priority  value  from  the  intruders  ordered  list 
of  defender  types  to  fire  upon.  If  the  priority  value  is 
zero,  the  intruder  cannot  fire  and  the  next  time  ordered  event 
is  considered.  If  there  are  defender  types  the  intruder  may 
shoot  at,  the  statements: 


00  590  ^ • I . NDfWO 

f  f  (  :  W  f  OC  F  I  J  I  .  00  TO  590 


consider  each  defender.  If  the  defender  type  is  of  the  type 
the  intruder  may  shoot  at,  the  statements: 


00  580  K . i . nor  A 

!ftN0ef£Att'.J).LT  \  )  CO  TO  5B0 
CALL  STtNTMSVlFA.M.^  ,TBIT,KDrTTN.3) 
I F  I  I  B  I  r  It  II  GO  TO 
GO  TO  650 
500  CONTI  nue: 

590  CONTI NUE 
6  0  0  C  0  N  1  I  N  U  f. 

00  TO  I  000 


consider  each  direct  fire  area-  Subroutine  STINT  is  called  to 
determine  if  the  intruder  may  fire  from  the  direct  fire  area 
at  a  defender.  If  a  defender  may  receive  return  fire,  the 
statements: 
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S?0  T H ? OF « I « « - T HftP I t N 1 N f T . 

V  1  K 
I  OAM«? 

ND*  •  Not  F  e  A I  r  .  j  I 

I  SHOT '  I 
I  I  ‘i  -  M 

CALI  0  I RF  I  R I  I  DAM  > 

NRAOr t t t t S t ‘NRAOr 1 M i S I  I 
IffNRAOritll^l.LT  l»THt0fR«M>«9i9P 
NRFB  t  ]  iNiNtT  )  •NRfBl  T  (NIN1  T  I  *  I 

increment  several  counters  and  provide  a  call  to  Subroutine 
DIRFIR.  If  optional  output  is  required,  the  statements: 


irilRUNS  Nl'  IPRIMfl  00  10  64  0 
AK  U  ' 9H  H ! SSFO 

irnOAM  01  01  Alr|L-  fiM  MM  HIM 

PRINT  900%.H.NlNTT.NOF.IwTOff4NDfl.AKll  PPBITl 


print  the  intruder  number  and  type,  the  defender  number  and 
type,  a  message  indicating  whether  the  defender  was  damaged, 
and  the  single  shot  probability  of  damage.  If  the  defender 
was  damaged,  the  statements: 

640  [ y  (  lOAn.L  T  M  CO  10  990 

NOt  r  c  A  1  IF  .  J  I  •  -NOr 
ND  T  VP*  I  Ml Otr  ( NOT  i 
NOFDAM<NOTYPI*NDrOAM(NDTtPI ♦ \ 
rMTOril(NOr*tOO)  *9999 
GO  10  990 


increment  several  counters.  If  the  time  ordered  event  is  one 
in  which  the  second  or  subsequent  indirect  fire  volley  is  in¬ 
volved,  the  statements: 


•760  I  V  AP-M-  I  20 

I  r  (  NVL  I  or  f  1  VAP  I  iT.MOO  1  0  900 
CALL  NOriRC 

TMTOrUtMl-TDeiFVI IVAPI 
NVLI0r«  |VAPI*NVLl0rt  IVAPI  -  I 
1  SHOT • I 
00  TO  990 


determine  the  volley  aimpoint  number.  If  all  volleys  have  not 
been  delivered  at  this  aimpoint,  a  call  to  Subroutine  NDFIRE 
is  provided  and  several  counters  incremented.  The  next  state¬ 
ments  : 


900  TMTOFRiMI*  9990  . 
00  10  1000 
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set  the  element  of  the  array  containing  the  times  for  the  time 
ordered  events  to  9990  to  indicate  that  an  event  will  no  longer 
be  considered  on  a  time  basis.  The  next  statements: 

990  01  TRAVft-iOU  TU  iOh'O 

00  TO  50 
10  0  0  C  ON  T  I  N  Jf 


determine  if  the  time  for  a  time  ordered  event  to  occur  is  less 
than  the  travel  time  to  the  next  position  related  event,  and 
if  so,  provides  branching  to  the  section  of  the  routine  that 
will  sort  the  array  containing  the  times  for  the  time  ordered 
events  to  occur.  Otherwise,  the  next  time  ordered  event  is 
considered.  The  last  statements  in  the  subroutine: 


»  i  I  S  H  0  1  I  *3  0  ,  ’  0  *)  0 
105  It  -I  NOOIP?-l'M?0,l‘i.£‘0 
t  NU 


evaluate  the  signal  that  a  time  related  event  occurred,  and, 
if  one  did  occur,  appropriate  sections  of  the  routine  are 
branched  to. 


Subroutine  STINT 


The  purposes  of  this  subroutine  are  to  turn  on  a  bit  to 
indicate  that  an  intruder  has  entered  a  direct  fire  area,  to 
turn  off  a  bit  to  indicate  that  an  intruder  has  exited  a 
direct  fire  area,  and  to  test  a  bit  to  determine  if  an  in¬ 
truder  is  located  within  a  direct  fire  area.  The  first  exe¬ 
cutable  statements: 


f  '  N 
K  I  «  I  I 
1  •  I 

MiK  t.  1  59I  00  TO  JO 
K  T  *  I  T  *  1  5 
K  -  K  59 


save  the  intruder  number  and  the  direct  fire  area  number.  For 
the  intruder  target  numbers  greater  than  58,  the  direct  fire 
area  number  is  incremented  by  15  and  the  intruder  target 
number  is  decremented  by  59.  The  variable  KT  is  used  for  the 
subscript  of  the  ISV(30)  array  and  the  variable  K  is  used  for 
the  number  of  the  bit  in  the  word.  The  next  statement: 
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1C  GO  10  <aO.*JO.lUO).N 


transfers  to  the  proper  section  of  the  routine  for  the  option 
desired.  If  the  call  to  Subroutine  STINT  was  made  for  the 
purpose  of  recording  an  intruder  in  a  direct  fire  area,  the 
statements : 


i SV I K 1  »  •  I  SV ( K r  I  .  Oft  SHirTM.K) 
KOrTTNt  INTt«KDr  T  'Ni  |nT  >  «  I 
ftc  r  oftN 


shift  a  1  into  the  appropriate  bit  position  and  increment  the 
counter  for  the  number  of  direct  fire  areas  this  intruder 
target  is  located  in.  If  Subroutine  STINT  was  called  when  an 
intruder  left  a  direct  fire  area,  the  statements: 


ISW-0 
J*  I  SH 

KK • J .  Oft  sh I r  T  u  . K  ) 

KK • . NOT  KK 

lSVIKT)*ISVIKt)  AND  KK 
KOfTTNt INll-KOf  T1N( )NT1  1 
ftt  T  UftN 


turn  the  flag  bit  off  to  so  indicate  and  decrement  the  count 
of  direct  fire  areas  this  intruder  is  located  in.  The  last 
statements  in  the  subroutine: 


100  I B I  T'SHI r I  I  I SV I K r  I  .  -K  I  and  IB 
nr  tUBN 
€  NO 


test  the  status  of  an  intruder  and  place  the  bit  whether  ON 
or  OFF  into  the  variable  IBIT  for  interrogation  in  the  calling 
routine. 


Subroutine  EXPSWP 

The  purpose  of  this  subroutine  is  to  evaluate  the  effects 
of  line  charges  and  fuel  air  explosives  as  sweeping  devices 
against  the  mines  within  the  range  of  influence.  The  first 
statements : 


KLOC  -OBK 
K1  "ICTSAVI  I  'aAVf  1 
I Oe I K I  I .  I 
NB-NOBTP? 
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rorsife?arirn!  ^nfnf 

statements; 


I r 1  I  HUNS  CO  1  PHI N1 I  NR  1 rf I h , I ono I 

1  r  t  I  C  I  OPI  Of  I  '  00  10  f  0 
r  ()  1  SI  ”  OBT  .  AL  NGLC 
HANOI -AKIOLC 
GO  TO  SO 


J  /I  1=,+-Haral  limits  of  the  line  charge  pattern 
set  the  forward  and  lateral  limit 

effects.  The  following  statements: 


c»  0  V  L  OC  •  0  9  Y  ♦  Of  ^ 

YOtSt  ‘YL  0C*H»0‘  M 
rSf  “YL  OC  -  AC 

R  A  NOt  *9  AOf  At • • ? 


define  the  limits  of  the  FAE  pattern  effects  .Equations  (20)  , 
(21),  and  (22)1.  The  next  statements. 


so  »<.  »  «  K  1  ♦  ! 

llliOfilKT)  it  O'  00  TO  iO 
I  HOHO.  I  OB  I K I  I 
CALL  UNPACK 
I f  I  NOB t  P?  -BlHO.eOO,  30 
qO  IflOBt  LI  VSII  00  TO  30 
GO  to  60 


determine  whether  a  mine  is  within  range  of  the  FAE  effects. 
For  Une  charges,  the  next  statements: 


A  I  .  W  1  •  I 

(lllOeiKTl  Ll  01  GO  to  -jO 
I WOPO •  1  OB  <  K  I  I 
CALL  UNPACK 
I  (  I  NOB  IP? -8180. POO, so 
1 t  I  OBY  ,  01  .  VO  I  St  I  GO  to  POD 


determine  whether  a  mine  is  within  the  forward  limits  of  the 
Une^harge  effects.  The  statements: 


the%xplodiIlg  iinrcha?grorFAE''°'"lf^?he^dist° 

compared  to  the  probability  of  dpfA  ®  random  number  is 

FAE  effects  [iLq^aUtJ  ^23)?!  if 

statements:  mine  was  detonated,  the 

BN-f)»NF  (  DUHHf  ) 

I  r  1  RN  GI  POLCr ) CO  10  50 

NHOtriNOBIPei  -NHDC  1  1  NOS  If’?  I  .  I 
CALI  BOOH  C  I OE  T  .  I  I 
I  08 ( N  T  1  . -  I 
00  10  50 

S-HS-THS  ~ 

sweep  delay  fAr^??  2^  entered  to  increment  the 

menS:  ^  «  the  column.  The  slate- 

goo  00  ?50  I . I . NtCO 

I  1  (  1 G r »nm (  n  . 01  88969 .  ) 00  10  ?50 

iuonr  >  '  00  '0  350 

SWPOE  L  I  I  I  aSWROE  L  I  I  I  ♦  I.MOL  C  r 

OEl  A  TN I  I  )  • TNDL  C  f 
’OlVEL  I  I  I -0 . 

?50  CONI  I  Nut 
OBX.XIOC 
NOBTPP.NB 
BE  1 UBN 
END 

Subroutine  TGTMOV 

truderl\hmilt'’di«i|cmi“lf"®  “°‘tve  in¬ 

delays  and  event  times  by  the^timrfM'^thl 
first  statements:  ^  ^  event.  The 


DO  600  I • I , NICO 


JEMoJicnii  r:  »«« 

DEI  I  I  I  or  0  I  00  1  0  900 

del  A  IN,  I  ,  I  I 
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lOELAlMin  01  Q.OIOOII  00  TO  550 


decrement  the  delay  time  for  the  active  intruders  that  a 
stopped.  If  the  time  for  the  next  event  is  greater  than  the 
remaining  delay  time,  the  following  statements: 


lOtVEL  I  M-tOTS»*0 
0  I  H- ABfi  I  or  U  *  I  M  I  I  I  1 
DCLATMI  I  1-0. 

TGIVNUC  I  l-IOtYNHl  I  I  .TOISPD'OTM 
T  I  Mt  MV  1  I  I  •  I  I  MS  "V  I  I  I  •  01  M 

iriTMTOrRMI  01  9000.1  GO  TO  BOO 

1 M 1  or R I  I  1  -  1 M I  OF R 1  I  I  DIM 
irilMTOFRllI.Lt.O. IIMTOfRlll*0. 
GO  to  600 


reset  the 
intruders 


intruder  velocity,  initialize  the  delay  time 
and  adjust  the  time  to  fire  by  the  remaining  delay 


time.  The  next  statements: 


■500  tOTYNHC  1  i-IOTYNHI  I  l.tGT5«>0-rRAVlM 

t  I  ME  MV  I  1  I  •  n  MF  MV  I  M  •  T  RA  V  TM 

■560  1  F  I  t  Ml  or  R  1  I  I  .  0  t  9000  I  00  TO  bOO 

TMTOFPI  I  1-IMTOFRI  1  I  IRAVTM 
iriTMTOFRMl.UT  0  l  IMIOFRIIl-O 
fifl  0  CON  I  I NUC 


move  the  active  intruders  the  event  distance  and  time,  and 
adjust  the  time  to  fire  for  all  active  direct 
by^the  time  for  the  next  event.  If  there  are  any  defender 
direct  fire  weapons,  the  statements: 


tFCNOrwO  LT  l>  OCi  10  TOO 
NEND-NDFWD •  I  00 
00100  I'Ioi.nc NO 

I  F  ■  TMIOFH (  M  .  01  9000  1  00  1  0  700 

IMlOFRIIl-IMIOFRltl  IRAVIM 
I  F  (  1  Ml  OFR  I  I  1  .  L  T  .  0  .  I  TMl  OF  »  M  I  ■  0 


-■00  CONI  1  NUE 


adjust  the  time  to  fire  for  all  active  defenders.  The  last 
statements  in  the  subroutine: 


75(1  irtNVAP.LT  II  RETURN 
NENO- ! PO^NVAP 
DO  90  0  I  • I P 1  . Nt  MD 

iriTHTOrRlll.GT.9000.»  00  TO  900 
TMTOrRtM'TMTOERIII  TRAVTM 
IFITMTOfRMI  Li  0  I  IHTOERMI*0 
900  CONTINUF 
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INITIAl.  DISTRimJTION 


DIX.;  2 
DRXSY/GB  3 
SMUPA/DW  2 
DRC  PM-SA-CP  1 
USN  Weapons  Cntr/Code  317  1 
USANIERDC/DRXFB-O  1 
Nav  Coastal  Sys  Lab/Code  722  1 
TFWC/SA  1 
AFAITC/TINAT  1 
USACAA/MOCA-SA-1  1 
Nav  Surface  Wjm  Cntr/DL  1 
Air  Force  Sys  Comd/SEW  1 
USA  Training  and  Doctrine  Comd/  1 

atcd-cm 

TAC/DRA  1 
AFATL/DLOSL  9 
AFATL/DLYW  10 
ADTC/XRO  1 
AFATL/DL  1 
AUL  (AUL-LSE-70-239)  1 
ASD/ENFEA  1 
TAWC/TRADOCLO  1 
Hq  USAF/SAMI  1 
Ogden  ALCAMVM  2 
.AFIS/INTA  1 
Ilq  USAFE/DOQ  1 
Hq  PACAF/DOO  1 


